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Chère lectrice! 
Cher lecteur! 
Chère programmeuse 


Cher programmeur! 


Vous avez en main le livre ‘Programmes BASIC' et vous voudriez 
peut-être pouvoir porter un premier jugement sur cet ouvrage. 
C'est pourquoi vous avez déjà jeté un coup d'oeil à la table des 
matières, après quoi vous vous préparez à sauter l'introduction et 
à vous diriger immédiatement vers la pièce tranquille où vous vous 
livrez à la programmation ou à l'écriture de programmes sur votre 


CPC 464. 


J'aimerais toutefois pouvoir dire quelques mots avant que vous ne 


vous lanciez dans votre occupation favorite. 


Le principe qui a en effet présidé à la réalisation de cette 
collection de programmes est différent de ce qu'on pourrait 
imaginer au premier abord. Cette collection de programmes ne 
comprend pas que des programmes mais également HO pages de textes. 
La place occupée par ce texte n'a pas pour but de rémédier à un 
manque d'idées: si j'avais publié tous les programmes que j'ai 
réalisés, cet ouvrage comporterait autour de 400 pages!. Le texte 
est donc là pour que vous ne vous contentiez pas 
de taper des 

programmes à longueur de journée mais pour que vous puissiez aussi 
apprendre un certain nombre de choses sur le CPC 464 en tapant ces 


programmes. 


Nous n'avons pas expliqué chaque ligne de programme pour ne pas 


mettre votre patience à trop rude épreuve et parce que nous n'en 


9 = 


avions pas la place, mais nous attirons votre attention dans les 
textes introductifs sur des détails intéressants et les programmes 


sont également richement pourvus en lignes REM explicatives. 


En ce qui concerne le contenu, c'est surtout le côté pratique pour 
l'utilisateur qui a été favorisé, soit que vous vouliez éditer de 
la musique, du graphisme ou des textes, soit que vous ayez besoin 
de gérer votre stock de disques ou les résultats du championnat de 
football. Un autre point important de cet ouvrage est enfin de 
vous permettre d'avoir une idée de la façon dont travaille votre 
CPC. Le "désassembleur" ou la "liste des références de variables" 


ne constituent que deux exemples à cet égard. 


En tout cas, et ce sera ma conclusion, nous souhaiîitons que vous 
aurez beaucoup de plaisir à pénétrer plus profondément dans 
l'univers des ordinateurs en général et du CPC 464 en particulier 
et que, peut-être, vous deviendrez grâce à cette collection de 


programmes un programmeur en herbe. 


L'auteur des programmes et du texte vous souhaite encore une fois 


beaucoup de plaisir dans votre travail avec cet ouvrage. 


Mémoire 1 


Si nous examinons à l'écran le résultat de ce programme, nous 
constatons que la Zone de la mémoire dont nous demandons le 
contenu avec l'instruction "PEEK'", n'est pas vide, puisqu'elle ne 


contient pas que des 0. 


Ce que nous voyons à l'écran nous semble une suite de chiffres 
sans signification, mais nous allons pouvoir constater que 
derrière ces chiffres se cachent aussi des lettres et des 


caractères très précis. Faisons une petite expérience: 


Entrez dans votre CPC: 'PRINT ASC("!")' (ENTER). Résultat: 33. 
Donc, derrière le signe d'exclamation se cache pour l'ordinateur 
le nombre 33. Faisons maintenant l'expérience dans l'autre sens; 
entrez: 'PRINT CHR$(33)' (ENTER). 

Résultat: '!'. Nous avons donc demandé à l'ordinateur de convertir 
à nouveau le nombre 33 en un caractère. Le résultat est notre 


signe d'exclamation! 


Nous pouvons maintenant apprendre à interpréter de même la masse 
de chiffres que nous avons obtenue avec le programme Mémoire 1. 
Pour le vérifier, veuillez entrer à la suite le programme 'Mémoire 


2'. 


Indication pour l'utilisation du programme ‘Mémoire 1': 

Eviter de choisir des adresses de début et de fin de la zone de la 
mémoire distantes de plus de 150 octets, de façon à ce que toutes 
les données que vous voulez examiner apparaissent sur une seule 


page d'écran. 
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Mémoire 2 





Une fois que vous avez tapé ce programme et que vous l'avez lancé 
avec RUN, vous pouvez constater, suivant ce que vous faites, soit 
qu'il ne se passe rien, soit qu'il ne se passe que des évènements 
imprévus (l'écran se vide, le mode change, PEN et PAPER se 


modifient, etc...). Pourquoi? 


Comme nous vous l'indiquons également dans d'autres programmes de 
ce recueil, il y a des caractères directement représentables (de 
CHR$(32)=espace à  CHR$(126)=ligne zig-zag et même jusqu'à 
CHR$(255) si on compte les caractères graphiques) et des 
caractères qu'il n'est pas si facile de faire afficher (par 
exemple CHR$(2)=déconnexion du curseur texte ou CHR$(7)=faire 


entendre un bip, etc...). 


I1 nous faut donc écrire maintenant encore un troisième programme 
qui n'affichera à l'écran que les caractères ayant une fonction 
purement graphique. C'est ainsi que nous aboutissons en complétant 


un peu notre programme au programme Mémoire 3. 


Indication pour l'utilisation du programme Mémoire 2: 

Si vous ne voyez à l'écran plus aucune forme reconnaissable et que 
vous vouliez malgré tout continuer à utiliser le programme que 
vous venez d'entrer, il vous faut faire preuve d'un peu d'astuce: 
ouvrez le manuel de votre ordinateur au Chapitre 9 et essayez 
d'annuler les facteurs perturbateurs en entrant PRINT et le code 


CHR$ qui convient. 


19 REM Examen de la memcire 2 

EH FE Programmes Basic aur CFCdrdg 
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Mémoire 3 


En entrant ce programme vous faites d'une pierre deux coups: 
premièrement l'affichage à l'écran du contenu de la mémoire 
apparaît sous une forme plus ordonnée (adresse de début de la zone 
examinée, contenu de cette adresse et des 7 octets suivants avec 
chaque fois l'affichage CHR$ correspondant, le tout sur une ligne 
de l'écran) et d'autre part, seuls sont affichés les caractères 
CHR$ représentables (entre 32 = espace et 126 = ligne zig-zag). 
Les caractères non représentables ont été simplement remplacés par 


CHR$(46) = '.'. 


Vous pouvez utiliser ce programme de deux façons: si vous entrez 
simplement l'adresse de début et que vous appuyez ensuite sur la 
touche ENTER, vous verrez uniquement le contenu des 8 octets 
situés à partir de cette adresse. Si par contre, vous appuyez, 
immédiatement après avoir appuyé sur la touche ENTER et pendant 
que l'affichage à l'écran est en train de se constituer, sur une 
touche à fonction de répétition, par exemple la touche espace, 
vous verrez s'afficher à l'écran le contenu des octets suivants, 


toujours affichés par lignes de 8. 


Examinons par exemple où se trouve en mémoire notre programme 
BASIC Mémoire 3. Sur le CPC comme sur tous les ordinateurs, les 
instructions ne sont stockées que sous forme d'un code (=token) 
alors que les mots placés à la suite d'une instruction REM sont 
conservés comme ils ont été écrits. Si vous entrez par exemple 
1006 comme adresse de départ, vous devriez maintenant découvrir le 


mot "octets". Voyez en effet la ligne 140 du listing: 


140 REM Chaque ligne de l'écran reçoit 


8 octets 


Ceci ne fonctionne évidemment que si vous avez bien entré le 
programme exactement comme il figure sur le listing, sans oublier 


mème un espace. 


Si vous entrez 1006 comme adresse de départ et que vous appuyez 
immédiatement sur la touche espace, vous voyez apparaître la suite 


de notre programme Mémoire 3. 


Indication pour l'utilisation du programme ‘Mémoire 3': 

Comme vous avez certainement déjà remarqué, les codes 
correspondant au contenu des zones de mémoire que vous pouvez 
examiner avec notre programme ne sont pas indiqués avec le système 
décimal que nous connaissons bien pour l'avoir appris à l'école 
mais avec le système hexadécimal. Il y a à celà deux raisons: la 
première est que le système hexadécimal est le système par 
excellence des fans du langage-machine et de tous ceux qui 
auscultent la mémoire des ordinateurs: et c'est bien ce que nous 
essayons de faire! La deuxième raison est qu'on peut placer plus 
d'informations sur une ligne de HO caractères avec le système 
hexadécimal qu'on ne le pourrait avec le système décimal (le 
nombre décimal de 3 chiffres '255' devient en hexadécimal un 


nombre de deux chiffres 'FF', de même 65535 (déc.)= FFFF (hexa.). 


Si vous ne connaissez pas encore le système hexadécimal, n'ayez 
aucune crainte, votre CPC vous permet de convertir très aisément 
les nombres décimaux en nombres hexadécimaux avec l'instruction 


PRINT HEX$(xx). Par exemple PRINT HEX$(65535) vous donnera: FFFF. 


— 10 — 


19 RENM 
E0 REM 
ES REM 
10 KREM 
49 REM 
45 REM 
50 INK 
4Q FEY 
70 MODE 


Examen de la memoire 


Examen de 1a memoire avec FEEF et 


CHF € dans un format clair) 


Programmes Basic sur le CFC464 


Copyright 1984 DATA BECKER % 


Rainer Lueers 


O,1:INE 1,24:1INF 2,1,74:effet=2:normal=i 


DEF 18,1 
ul 


RO REM Delimiter le cadre de l'examen 


90 INFUT "Entrer l'adresse de debut "sa 


100 1F 


a£0 OR a>65535 THEN GOSUR 


110 a+-=HEX#(Ca,4) 


permettent 


d'obtenir une sortie sur ecran 


optimale avec 40 caracteres par 


120 REM Les lignes suivantes 
121 KREM 

27 REM 

12% RKEM ligne 

120 FRINT as" ": 


140 REM Chaque ligne de l'ecran recoit 


141 REM 
150 FOR 


8 octets 
2=0 T0 7 


160 22z=PEEK (a+z):2z#-HEX# (27,2) 


170 FRI 
180 NEX 


NT zzts" "ss 
T > 


190 REM Sortie de la chaine de 


191 REM caracteres avec un traitement 
192 KEM particulier lorsque la valeur 
19% REM FEEK est £72 ou 1276 


200 FOR 


230 1F 
IF 


250 FRI 
260 NEX 
270 FRI 


z=0 TO 7 


22432 THEN zz=46 
z2z:126 THEN z2=46 
NT CHR#(Zz);: 

T z 

NT 


280 a=a+8 


290 at= 
300 1F 


INKEY# 
at="" THEN GOTO 90 


310 GOTO 110 


17 — 


370: GO0OT0 70 


END 

PEN effet:FRINT:PRINT TAR(12) "Entree incorrecte!" 
FEN normal:GOSUR 250:RETURN 

PRINT:PRINT TARH(7) “<Appuyez sur une touche SV PL" 
f#=-INFEY#:IF f#="" THEN GOTO 240 

RETURN 


= 49 


Mémoire 





Nous avons examiné jusqu'à présent la mémoire de notre ordinateur 
et nous n'avons trouvé au début que des nombres (Mémoire 1), puis 
des caractères bizarres (Mémoire 2) mais nous avons enfin obtenu 
un affichage formaté des nombres et des caractères représentables 
(Mémoire 3). En examinant avec Mémoire 3 la zone occupée par le 
programme BASIC, et en comparant l'affichage sur la partie gauche 
de l'écran à celui de la partie droite, nous avons bien vu que 
notre programme BASIC ne se compose en fait que de nombres qui 
sont ensuite convertis par le CPC en diverses lettres ou 


caractères. 


Pour comprendre comment cela est possible, il faut savoir comment 
l'ordinateur stocke en mémoire les données et les programmes. Pour 
économiser de la place en mémoire, les instructions sont stockées, 
après que vous les ayez entrées avec ENTER, sous forme 
d'abréviations appelées tokens (voir l'annexe). C'est ainsi que 
l'instruction PRINT qui devrait occuper normalement cinq octets 
puisqu'elle se compose de 5 lettres n'occupe qu'un octet en 


mémoire. 


Mais si vous écrivez ‘'PRINT' dans une ligne REM ou entre 
guillemets, par exemple PRINT"'PRINT", le mot PRINT que 
l'ordinateur ne considérera pas comme une instruction mais comme 
du texte sera stocké lettre pour lettre et occupera bien 5 octets 


en mémoire. 


Si vous essayez maintenant de rechercher grâce à notre programme 


— 13 — 


Mémoire 3 si un mot ou un texte quelconque se trouve dans un 
programme BASIC en mémoire et où il se trouve en mémoire,ceci 
risque de durer très longtemps jusqu'à ce que vous ayez pu 
examiner les 65535 octets de la mémoire. Autant chercher une 


aiguille dans une botte de foin! 


11 faut donc procéder de façon plus systématique et c'est ce que 
permet le programme Mémoire 4! Vous pouvez en effet entrer un mot 
comprenant jusqu'à 6 lettres et vous indiquez ensuite à 
l'ordinateur dans quelle zone il doit chercher cette expression. 
Bien sûr, plus la zone à l'intérieur de laquelle vous lui dites 
d'effectuer cette recherche est grande et plus vous risquez 
d'attendre longtemps. Une fois la recherche effectuée, et si 
l'expression recherchée se trouve bien dans la zone que vous avez 
délimitée, l'ordinateur vous indique l'adresse où figure cette 
expression. Vous pouvez alors vous amuser à modifier avec 
l'instruction POKE votre programme BASIC (employez uniquement des 


codes compris entre 32 et 126 inclus). Par exemple: 


En ligne 10 se trouve le mot 'Examen'. Faites d'abord rechercher à 
quelle adresse se trouve ce mot. Lancez le programme avec RUN, 
entrez 'Examen' (ENTER) et faites rechercher ces lettres dans 
toute la mémoire; entrez N (ENTER) pour répondre à la question 
suivante. Peu de temps après, vous voyez apparaître à l'écran: 
‘Examen' trouvé à l'adresse 374. Si vous tombez sur un nombre 
légèrement différent, ce n'est pas très grave. Appelons la valeur 
obtenue NOMBRE (pour nous NOMBRE-=374). Voyons maintenant ce qui se 
trouve en mémoire à l'adresse NOMBRE: PRINT PEEK(NOMBRE) (ne tapez 
pas NOMBRE bien sûr mais la valeur que vous aviez obtenue). 


Résultat: ‘"69'! Or que signifie le code 69: PRINT CHR$(69). 


= 14 — 


Résultat: 'E'! 


Le nombre 69 correspond donc bien à la première lettre du mot 
recherché ‘Examen'. Si vous listez la ligne 10, vous y voyez le 
mot ‘'Examen'. Si vous placez avec l'instruction POKE une autre 
valeur que 69 à l'adresse NOMBRE, vous allez changer le mot 
figurant à la ligne 10. Essayez par exemple de transformer le 'E' 
en ‘'G'. Pour savoir quel est le code de la lettre G, utilisez 
l'instruction PRINT ASC(xx): PRINT ASC("G") => 71. Il vous suffit 
donc d'entrer POKE NOMBRE,71 et 'Examen' en ligne 10 est devenu 


"Gxamen'! 


Voici comment vous pouvez grâce à nos petits programmes en 
apprendre un peu plus sur le mode de stockage en mémoire des 
programmes BASIC et avoir une idée peut-être plus précise de la 
complexité d'un ordinateur tel que le CPC. N'oubliez pas que le 


BASIC est le produit de nombreux développements et travaux. 


Mais notre programme ‘Mémoire ' vous révèle également un autre 
aspect des programmes BASIC: le stockage du numéro de ligne. 
Lancez à nouveau le programme avec RUN, entrez le critère de 
recherche 'Examen' (ou 'Gxamen' si vous avez modifié le programme) 
et faites rechercher cette expression uniquement dans le programme 
en choisissant donc l'option 'P'. Vous verrez peu de temps après 
non seulement l'adresse correspondante mais aussi le numéro de 
ligne correspondant dans notre programme BASIC. 

Le calcul du numéro de ligne est relativement simple, ... à 
condition qu'on sache comment l'effectuer. Tout programme BASIC 


sur le CPC commence normalement en 368. Les adresses 368 et 369 


15; = 


contiennent la longueur de la première ligne de notre programme 
('PRINT PEEK (368) => 29. PRINT PEEK (369) => O0. Le calcul de la 
longueur peut être obtenu à partir de ces deux valeurs en 
appliquant la formule suivante: PRINT PEEK(368)+PEEK(369)*256 => 
29. Donc: la première ligne BASIC (y compris les deux octets 368 
et 369 qui en indiquent la longueur) est longue de 35 octets. Vous 
pouvez donc, grâce à cette information, calculer le début de la 
seconde ligne BASIC qui contient également les mêmes informations, 
et ainsi de suite. Or les adresses 370 et 371 contiennent le 
numéro de la première ligne BASIC: PRINT PEEK(370) => 10. PRINT 
PEEK(371) => 0. Calculez maintenant la valeur obtenue: PRINT 
PEEK(370)+PEEK(371)*256 => 10. Donc: le premier numéro de ligne de 


notre programme est 10 et cette ligne comporte 35 octets. 


Ce sont exactement les mêmes calculs qu'effectue encore et 
toujours (à partir de la ligne 160) le CPC pour pouvoir indiquer 
le numéro de ligne lorsqu'il trouve l'expression que vous lui avez 


fait rechercher. 


Mais peut-être en avez-vous à présent assez de la théorie! Passons 


donc au programme ‘Mémoire 5'. 


"16 — 


Quel(s) caractère(s) cherchez-vous 


(longueur inferieure ou egale a 6) ? Examen 


Dans quelle section de la memoire 
faut-il chercher cette suite 

de caracteres 

(/N=dans toute la mémoire 


/P=dans le programme) ? n 


longue trouve a l'adresse 374 


Exemple d'utilisation de Mémoire 4 


17 = 


10 


90 
100 
110 
170 

er 

Ft 
170 
140 
150 
160 
370 
171 
172 
17% 
174 
180 
190 
700 


219 


260 
:bb 
270 
280 
290 


700 


FEM Examen de La memoire 4 

REM Rechercher en memoire une 

REM suite de caracteres 

REM Froogrammes Basic sur le CPC464 
REM Copyriaht 1984 DATA BECKER ®% 


REM Rainer Lueers 
ENEUOOS ASIN 1,74: INF 2,1,24:effet=2:normal=l 
MODF 1 


REM Entree du critere de recherche 


Le) 


INFUT "Ouel (S)\ caractere(s) recherchez-vous (jusqu'a 
caracteres) ":f# 


IF LEN(##):6 OK LENCf#)=0 THEN GOSUR S40:G0OT0 60 


FRINT 

REM Choisir zone a faire rechercher 

INFUIT "Dans quelle zone de la memoire doit sS'effectu 
la recherche C /N=dans toute la memoire/F= 
oaramme) ":41# 


f1+-UFPER# (#14) 
FRINT 
JF f1$=-"N" THEN a=0:e=6552:S:GO0OT0 370 
IF #14 "FU THEN a=768:GOTO 180 ELSE G69T0 300 
REM Recherche de la suite de 
caracteres nniquement dans le 
programme; 5i trouve -: 


affichage des nimeros de ligne 


correspondants 
AATFEEF (a) + (FEEF (a+1) 4256) : bb=FEEF Ca+2) +(FEEF (a+7) 4256) 
FOR n=a TO a+aa 
IF CHK#(PEEF (n))=MID#(C#F#,1,1) THEN E=1 
JF K=1 AND CHR#(PEEF (n+1))=MID#(F#,2,1) THEN k=2 
IF F=2 AND CHRE#(FEEF (nh+D))=MID#(F#,7T,1) THEN K=Z 
IF F=7T AND CHR#(FEEK (n+7))=MID#(#f#,4,1) THEN k=4 
IF F=4 AND CHR#(FEEF (n+4))=MID#(##,S5,1) THEN Ek=S 
IF k=S AND CHR#(PFEEF (n+5))=MID#(f#,6,1) THEN Ek=6 


IF FELENCF#) THEN FRINT "trouve ";sf#;" (ins ") en ligne" 


CET) 

NEXT n 

a=ataa:lF aa=0 OR bb=0 THEN GOTO 470 ELSE GOTO 180 
FRINT 


—. 18: — 


210 REM Delimiter la zone a examiner 
220 INFUT "Adresse de debut ‘"3a 

Z7O INPUT "Adresse de fin "ie 

540 IF aïe OR a<0 OR e“O OR a:65S25 OR e:65525 THEN SOSUR 
O:GOTO 2:20 

250 FRINT 

260 REM Recherche du critere de 

761 © recherche f# dans la memoire de 

362 ‘ l'adresse ‘a’ a l'adresse ‘e’ 
770 FOR z=a TO e 

ZR0 IF CHR# (PEER (Z2))=MID#(f#,1,1) THEN k 


1 
90 JF E=1 AND CHR#(FEER (z+1))=MID#(f#,T, 1) THEN 


il 
&] 


400 IF k=2 AND CHR#(FEEK (2+2))=MID#(f#,7,1) THEN k=Z 
AO IF F=T AND CHR#(FEEK (z4#7) )=MID#(#f#,4,1) THEN t=4 
420 IF Ek= 


Bb 


AND CHR#(PEEK (z+4))=MID#+(##,S,1) THEN F=€ 
47 IF k= 


an 


AND CHR#(FEEK (z+5))=MID#($#,6,1) THEN E=6 

AA4Q IF E=LEN(S#) THEN FRINT “trouve "“:ft:" a l'adresse":;z 
90 k=O 

460 NEXT z 

470 FRINT 

A0 FRINT 

490 REM Fin du programme où continuer 

5300 INPUT "Rechercher d'autres caracteres ( /N) ":f# 

D10 £4E=UPFERE Cf #) 

S?2O0 IF F#CS"N" THEN GOTO 60 

530 END 

540 PEN effet:PRINT:FRINT TAH(12) "Entree incorrecte!" 
590 FEN normal : GOSUR S60: RETURN 

560 PRINT:FRINT TAR(7) "“Appuyez sur une touche S.V.P.>" 
970 f#=INFEY#:IF f$#="" THEN GOTO 570 

580 PRINT:FRETURN 
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54 


Mémoire 5 


Alors que le programme Mémoire 3 représentait 8 octets par ligne 
(valeurs décimales e 

t caractère CHR$), nous allons maintenant 
avoir un programme plus clair puisqu'il affichera un octet 
seulement par ligne et fournira plus de renseignements sur chaque 


octet affiché. 


Pour toutes les informations fournies, les codes décimaux et 


hexadécimaux sont successivement présentés: 


1) Adresse décimale 

2) Adresse hexadécimale 

3) Contenu décimal de l'adresse 

4) Contenu hexadécimal de l'adresse 


5) Contenu de l'adresse (si possible) en caractère CHR$( 


Ce programme vous sera très utile dans votre exploration de la 
mémoire de votre ordinateur car il vous évitera de devoir sans 
cesse convertir les nombres que vous obtenez. Ce programme vous 
permettra d'autre part très aisément d'apprendre à connaître le 
grand nombre de tokens (souvenez-vous: token=code d'une 
instruction BASIC) dont l'annexe de cet ouvrage vous fournit la 


liste. 


Faisons un essai: ajoutez à votre programme la ligne 9: 9 PRINT 
CENTER). Comme vous le savez, la mémoire du programme BASIC 
commence en 368. Entrons donc 368 comme adresse de début. La 


valeur finale nous est égale, pourvu qu'elle soit supérieure en 
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tout cas à l'adresse de début (appujons donc simplement sur 
ENTER). L'affichage de la mémoire se déroule jusqu'à l'adresse de 
début + 2000 = 2368. Pour notre expérience, il nous suffit de 
faire afficher les 10 premières adresses de la mémoire, donc 
adresse finale 378! Listez ensuite les ligne 9 et 10 pour 


contrôler l'affichage. 


Voici brièvement comment interpréter l'affichage du contenu de la 


mémoire : 

Adresse 368: contient 6 (368 et 369 donnent la longueur de la 
ligne) 

Adresse 369: contient 0 (Adr 368+(256*Adr 369) = 6 octets) 

Adresse 370: contient 9 (370 et 371 donnent le numéro de la 
ligne) 

Adresse 371: contient O (Adr 379+(256*Adr 371) = numéro 9) 


Adresse 372: contient 191 (token de l'instruction PRINT) 


Adresse 373: contient O0 (Marque de fin de ligne) 

Adresse 371: contient 35 (374 et 375 donnent la longueur de la 
ligne) 

Adresse 375: contient 0 (Adr 374+(256*Adr 375) = 29 octets) 

Adresse 376: contient 10 (376 et 377 donnent le numéro de la 
ligne) 

Adresse 3717: contient 0 (Adr 376+(256*Adr 3717) = numéro 10) 


Adresse 378: contient 197 (token de l'instruction REM) 


Intéressons-nous à l'adresse 372. Entrez POKE 372,197 (197 est le 
token de "REM') et listons la ligne 9. Vous voyez que 
l'instruction PRINT de la ligne 9 a été remplacée par une 
instruction REM. Notez simplement pour le moment qu'il n'existe 


pas seulement des tokens à un octet mais aussi des tokens à deux 
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octets. Nous n'en dirons pas plus pour le moment mais vous pouvez 


consulter l'annexe comportant la 


10 REM Examen de la memoire 


20 REM Sortie du contenu de 


21 


un octet par ligne 
REM Frogrammes 
REM Copyright 
Rainer Lueers 


INF OO,12 INF 1,74: INF 2? 


MODE 1 


REM Delimiter la zone 


INPUT "Adresse de debut 


90 KREM 


100 FRINT "Adresse de fin 


UT e 


110 IF a°0 OR e°0 


IF 6-0 THEN e-a+2000 


CLS 


REM Ordre de la sortie: 


Adresse decimale 


147% Contenu de 


144 Contenu de 


145 Contenu de 


150 FOR z=a TO e 


160 FRINT z; 


170 FRINT TAR(B) HEX#(z,4): 


180 FÉINT TAR (18) FEEF(z) 


190 FRINT TAB(?4) 


200 FRINT TAR(ZO)S:s 


2190 n1=PEEr (2) 


220 IF ni°72 THEN n1-46 


2370 JF n1:1276 THEN n1=46 


PAO FRINT CHR# ni) 


ne, 
#20 


NEYT 


260 END 


270 PEN 


280 FEN normal : GOSUER 


290 
TON 


FH-INFEVE: IF FH" THEN 


Z10 FETURN 


(Chiffre/<ENTER:- 


OR a>65535 


l'adresse 
l'adresse 


l'adresse 


effet:PRINT:FRINT TAH(12) 
290:RETURN 
FRINT:FRINT TAR(7) "“Appuyez 


liste des tokens. 
5 


la memoire 


Basic pour le CFC464 
1984 DATA HECFER 2 


.1,74:effet-=®?:normal=t1 


a examiner 


sa 


>"sa+2000:")":INF 


OR 665575 


THEN GOSUR 270:G0OT0 


Adresse hexkadecimale 


en decimal 
hexadecimal 


en CHRE#( 


HEX#(PEEF (z),,2):5 


“Entree incorrecte!" 


sur une touche S.V.P.5" 


GOTO Z:00 


= 99 


Editeur graphique 


Le graphisme est certainement plus simple à programmer sur le 
CPCH6H que sur beaucoup d'autres microordinateurs similaires, mais 


il reste néammoins relativement compliqué. 


Il n'y a en effet que deux instructions graphiques directes (PLOT 
pour créer un point et DRAW pour dessiner une ligne) et il faut 
d'autre part savoir jongler avec les coordonnées si on ne veut pas 
risquer de ne pas créer ou dessiner exactement les points qu'on 


aurait souhaité. 


Mais le graphisme devient un jeu d'enfant avec le programme 


d'éditeur graphique que nous vous présentons maintenant. 


Nous avons longuement réfléchi avant de décider du mode de 
commande du curseur graphique qu'il convenait de choisir (il 
aurait été en effet inutile de réaliser un éditeur graphique, si 
c'était pour utiliser uniquement l'adressage absolu!). Nous avons 
éliminé le joystick et les touches curseur parce qu'ils ne nous 


permettent pas de distinguer plus de À directions. 


Comme nous voulions avoir un bloc de 8 directions (les 4 points 
cardinaux plus les  diagonales), nous avons simplement réaffecté 
une grande partie du clavier de façon à disposer d'un bloc de 8 


touches correspondant aux 8 directions. 


Le programme "Editeur graphique" ne vous permet pas simplement de 


dessiner dans 8 directions: 


Es 99; 


"C' vous permet de positionner le curseur de manière absolue (par 


exemple 320,200 correspond au centre de l'écran). 


"D' vous permet de dupliquer une zone de l'écran (vous marquez 
avec le premier curseur l'angle inférieur gauche de cette zone et 
avec le second curseur l'angle supérieur droit puis vous marquez 
avec le troisième curseur l'angle inférieur gauche de la zone où 
cette zone doit être copiée). La fonction ‘'OR', au contraire de la 
fonction ‘AND' n'efface pas le fond de l'écran. Vous pouvez 


également faire afficher l'original agrandi deux fois. 


"F' vous permet de choisir parmi les couleurs possibles. 


"G' vous permet de tracer une ligne d'une longueur quelconque 


entre deux points. 


'K' vous permet de tracer un cercle autour du curseur qui en sera 


le centre, après avoir entré le rayon de ce cercle. 


'L' vous permet d'effacer une zone que vous définissez par deux 
positions du curseur (angle inférieur gauche et angle supérieur 


droit). 
'R'vous permet de créer un rectangle que vous définissez par deux 
positions du curseur (angle inférieur gauche et angle supérieur 


droit). 


"T' vous permet d'afficher un texte à partir de l'emplacement du 


curseur. 
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Vous voyez qu'il ne manque à notre éditeur graphique que la 
possibilité de peindre des zones, de sauvegarder l'image créée sur 
cassette (une sauvegarde de 16 K dure vraiment trop longtemps, 
attendons plutôt le lecteur de disquette) et une routine 
d'impression sur imprimante (hardcopy). Mais toutes les autres 
possibilités graphiques de votre ordinateur sont mises en oeuvre 


de façon très simple par cet éditeur graphique. 


Bien sûr si vous voulez améliorer ce programme, vous pouvez donner 
le champ libre à votre imagination créatrice, sous réserve 
évidemment de ne pas surcharger la capacité mémoire de votre 


ordinateur. 


22:96 = 


10 
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REM Editeur graphique 
REM Frogrammes Hasic pour le CPC464 
REM Copvriaht 1984 DATA HBECFER 2% 
REM Rainer Lueers 

INF O,12INF 1,24:INF 2,1,74:effet=?:normal=i 
MODE 1 
FOR n=Z TO 20:KEY DEF n,1:NEXT: SPEED KEY 50,2 
FAFER O:FEN normal 

INFUT "Quel mode ecran ";f# 

FF VAL(F#):0 OR VAL(##) 5:27 THEN GOSUR 1570:G07T0 
IF VAL(#f#+)=0 THEN z1=4 

IF VAL(CE#)=1 THEN z1=2? 

IF VAL(f#+)=2 THEN z1=1:mode?=z 

MODE VAL CH #) 

KEM Fixation des fenetres 

graphique et de texte 


20 


ORIGIN 0,0,0,640,400 





WINDOW #1,1,40,25,25S 
a=320:b=200 

FAFER #1,7-mode?:CLS #1 
FAPER O:CLG:FLOT a,b,1 
FEM Menu propose 


Possibilites offertes: CDFGKLRT 


C = Definir coordonnees Curseur 
D = Duplication (Or/And/Agrand.) 
F = Fixer la couleur 

G = Dessiner une droite 

FE = Dessiner un cercle 

L = Supprimer 

FR = Dessiner rectangle 

T = Entrer texte 


CLS #1:PFRINT #1,a:b; "CDFGELRT"; 
at=INFEY# 

IF at="" THEN GOTO 270 

GOSUR 1570 

DRAW a ,b 

IF ASC(a#):57 THEN GOSUR 290 
GOTO 220 

CLS #I1:FRINT #1,a:b; 

at=UPFERE (af) 


= 262 


80 


10 IF a$="C" THEN FRINT #1,"P1.Curseur"“; 





220 IF at="D" THEN PRINT #1,"Duplicati.": 
FFO IF a$="F" THEN FRINT #1,"Fix. Coul."; 
TA4O0 IF at="G" THEN FRINT #1,"Des.Droite" 


:z2z-4 


Le] 

ni 
il 

un 


250 IF a$="F" THEN PRINT #1,"Des.Cercle":;:zz 


Il 


il 
NN © 


360 IF at="L" THEN FRINT #1,"Supprimer "35: 
270 IF a$="R" THEN PRINT #1,"Rectangle “ 








o 





280 IF a#$="T" THEN PRINT #1,"Entr.Terte":2:27z 
290 IF zz=0 THEN RETURN 
400 af=INFEYS 
410 IF a$="" THEN GOTO 400 
A20 (F af=CHR#(1Z) THEN GOTO 440 
30 RETURN 
440 ON zz GOSUR 410,470,570,860,900,1000,1080,1780,1459 
450 RETURN 
460 REM C = Fixer curseur avec coord. 
470 CLS #1: INPUT #1,"Ou(x,v)"sa#t,b#t 
480 IF VAL(a#t)<0 OR VAL (at) 640 OR VAL (a#t)2?20 OR VAL (a#) 400 
THEN GOTO 470 
490 a=VAL (at) :b=VAL(b#):FLOT àa,b 
SOOQ RETURN 
510 REM D = Duplication (0r/And/Agrand.) 
920 pointa=aspointb=b:CLS #1: FRINT #1,"Fisxer curseur 1" 
SIO at=INFEYE# 
SA4O IF a$f="" THEN GOTO 570 
9599 couleur=TEST(a,b):pointi=a:point?-b 
560 FOR m=t TO 1O:FLOT a,b,couleur:FLOT a,b,1:PFLOT a,b,2:PL0 
T'a,b,Z:FPLOT àa,b,1:PLOT a,b,couleur:NEXT m 
570 GOSUH 1570 
980 IF a+t=CHR#(1T) THEN ai=a:bi=b ELSE GOTO 5:20 
590 CLS #I1:PRINT #1,'"Fixer curseur 2" 
600 at=INFEY+ 
610 IF a$="" THEN GOTO 600 
620 couleur=TEST(a,b):pointi=a:point?=b 
670 FOR m=1 TO 10:FLOT a,b,couleur:FLOT a,b,1:FLOT a,b,2:F10 
T'a,b,Z:PLOT a,b,1:PLOT a,b,couleur:NEXT m 
640 GOSUR 1570 
6SOQ IF a$=CHR# (13) THEN a2=a:b?2=b:1F a?2<=ai OR b?<=b1 THEN G 
OT0 590 ELSE GOTO 660 ELSE GOTO 600 
b6O CLS H1:PRINT #1,"Fixer curseur Zz" 
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670 0 at=[NFEVE 

680 IF at="" THEN GOTO 679 

699 couleur-=TEST(a,b):pointi=at:point?2=b 

700 FOR m=1i TO 10:PLOT a,b,couleur:PLOT a,b,1:PLOT a,b,2:FL0 
F'a,h,z%:FPLNT a,b,1:PLOT a,b,couleur:NEXT m 

719 GOSUR 1570 

720 JF aft=-CHR# (17) THEN aï=a:b%=b ELSE GOTO 86870 

720 CIS Hi: INPUT t#1,"040r) où Not) "sf#t:f#=UPPERE (FE) SIF LEF 
TE(Cf+,1)-"O" THEN flag=]i ELSE flag=0 

7AG CLS #1: INPUT #1,"agrandi (0/7 ) "s€t:{#-UPPERECfF#) 2 IF LEF 
Tt(f#,1)="O0" THEN flag2=1 ELSE flag?-0 

750 IF flagrf:0 THEN GOTO 800 

7840 ni=0:mi=0:FOR nzai TO a? STEP z:1:FOR m=bi TO bb? STEF 2? 
770 testrouleur=TEST(n,miIF flag=0 THEN FLOT a%+ni,bz+mi,te 
stoouleur ELSE JF TEST(a%+ni,bz+mi)=0 THEN PLOT a7+n1,b+#mi, 
testcouleur 

789 mi=mi+?:NEXT mimi=O:nient#ziiNEXT n 

790 a-pointasb=pointh:FLOT à,b,1:RETURN 

800 ni=0:mi=-0s: FOR n=ai TO a? STEP z):FOR mzb1 TO b? STEP ? 
A1O F+t-TEST(n,miitF flag=-0 THEN FLOT a%+n1,b3+mi,ft:PLOT aT+ 
ni,bt#hnit4T,ft:PLOT a%tni+z1,bz+mi,ft:PLOT a%+tni+z1,bz+mi+2,f 
+ 

820 IF flag=i AND TFET(aT+ni,bz+mi)=0 THEN PLOT aï%+ni,bT+mi, 
ft2FT OT az+nt,bTtmli+7,ft:PLOT a%+n1i+z1,bz+tmi,fts: PLOT a7+#ni+z 
1,H%4+mt4+7,ft 

B7O mi=mt+4i:NEXT mimi=O:ni=nit+2#ziiNEXT n 

P4Q a=pointai:b=pointbsFLOT àa,b,1:RETURN 

850 REM F = Fixer couleur 

960 CLS H#1:INPUT #1,"Quel numero Ms ft 

870 IF VAL(F#)20 OR VAL (##4)>:172 THEN GOTO 860 ELSE PLOT a,b 
VAL CF#) 

8890 RETURN 

2890 REM G = Dessiner droite 

900 CLS #1:FRINT #1,"Fixer curseur ":pointi=a:point?=b 

910 at=INFEVS 

920 IF at="" THEN GOTO 910 

979 couleur=TEST(a,b) 

940 FOR m=1 TO 10:PLOT a,b,couleur:PLOT a,b,1:PLOT a,b,2:PLO 
T a,b,2%:FLOT a,b,1:FLOT a,b,couleur:NEXT m 

950 GOSUR 1570 


—"98:— 


960 IF af=-CHR$(17) THEN GOTO 980 

979 GOTO 910 

980 PLOT pointi,point?,1:DRAW a,b,1:RETURN 

990 REM KE = Dessiner un cercle 

1000 CLS #1:]INPUT #1,"Rayon “;f# 

1910 FOR aa=1 TO 360 

1020 DEG 

10370 FLOT a+VAL (F4) #CO0S (aa) ,b+VAL (f#)#GSIN (aa) ,1 
1040 NEXT aa 

1050 PLOT a,b 

1060 RETURN 

1070 REM L = Supprimer 

1980 CLS H#1:FRINT #1,"Fixer curseur 1" 

1090 mar queli=a:marque?=b 

1100 at=INFEY# 

1110 IF af="" THEN GOTO 1100 

1120 couleur = TEST (a,b)'ipoint{i=a:point?-=b 

1310 FOR m=1 TO 10:PLOT àa,b,couleur:FLOT a,b,1:PLOT a,bp,r:FPL 
OT a,b,73:PLOT àa,b,1:PLOT a,b,couleur:NEXT m 

1140 GOSUB 1570 

11950 IF at=CHF#(17) THEN ai=a:bi=b ELSE GOTO 1100 
1160 CLS HI:FRINT #1,"Finer curseur 7?" 

1170 at=INFEY# 

118O IF at="" THEN GOTO 1170 

1190 couleur=TEST(a,b):pointi-a:point?-b 

1200 FOR mz1 TO 10:PLOT a,b,couleur:PLOT a,b,1:PLOT a.b,2:PL 
OT a,b,7:PLOT a,b,1:PLOT a,b,couleur:NEXT m 

1210 GOSUR 970 

1220 IF a$=CHR#(17) THEN a?=a:b?=b ELSE GOTO 1170 
1270 ORIGIN 0,0,a1,a?,b?,b1:CLG: 

1240 ORIGIN 0,9,0,640,400,70 

1250 mar quel=a:mar quez-b:PLOT a,b,1 

1260 RETURN 

1270 REM R = Dessiner Rectangle 

1280 CLS #1:PRINT #1,"Fixer curseur 1" 

1290 mar quel=a:mar que?=b 

1700 at=INFEY# 

1710 IF a$f="" THEN GOTO 1300 

1:20 couleur=TEST(a,b):pointi=a:point?-b 

13110 FOR m=1 TO 10:FLOT a,b,couleur:EFLOT a,b,1:FLO0T a,bp,?2:FL 
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OT a,b,2:PLOT a,b,1:PLOT a,b,couleur:NEXT m 
17:40 GOSUR 1570 

1250 IF at=CHR#(17) THEN aî=a:bi=b ELSE GOTO 
1560 CLS H1:PRINT #1,"Fixer curseur 2" 

1770 a$t-INFEYS# 

1780 IF a+t="" THEN GOTO 1770 


1790 couleur=TEST(a,b):pointi=a:point?2=b 


1400 FOR m=1 TO 10:FLOT a,b,couleur:FLOT a,b,1:FLOT a,b,2:PL 


OT a,b,7:PLOT a,b,1:PLOT a,b,couleur:NEXT m 
1410 GOSUER 570 
1470 IF at=CHRt (17) THEN a2=a:b?=b ELSE GOTO 


1:70 


1470 FLOT at,b1:DRAW a2,b1,1:DRAW a?7,b2,1:DRAW a1,b2?,1:DRAW 


al,b1,1:a=marquel:b=marque?:PLOT àa,b,1:RETURN 
1449 REMT = Entrer texte 

1450 CLS #1:PRINT #1,"Fixer curseur" 

1455 mar quei=a:mar que?=b 

1460 at=INFEYE 

1470 IF a$="" THEN GOTO 1440 

14890 couleur=TEST(a,b):pointi=ai:point?=b 


1485 FOR mt TO 10:F1 OT a,b,couleur:FLOT àa,b,1:PFLOT a,b,?:PL 


OT a,b,7:FLOT a,b,1:PFLOT a,b,couleur:NEXT m 
1490 GOSUR 1570 


1500 IF a$t-CHR#(17) THEN aî=a:bi=b:PLOT a1,b1,1 ELSE GOTO 


69 

1519 TAG 

1520 CLS #1:INPUT #1,"Texte ";a+t 
1570 PRINT a; 

1540 a=marquel:b=marque?:FLOT a,b,1 


1550 TAGOFF : RETURN 


1560 REM Calcul des mouvements du curseur (8 directions) 


1670 TE ASC (at)=54 THEN a=at+zi 

1590 IF ASC(at)=57 THEN a=atzi:b=b+z1 
1590 IF NSC(a#t)=56 THEN b=b+? 

1690 IF ASC(a#)=55 THEN a=a-zi:b=b+z1 
1410 IF ASC(at)=52 THEN a=a-zi 

1670 JF ASC(at)=49 THEN a=a-z1:b=b-21 
1470 IF ASC(a#t)=50 THEN b=b-? 

1640 IF ASC(a#)=51 THEN a=a+zi:b=b-71 
14590 RETURN 

1660 af-=INFEY# 
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1670 IF a+="" THEN 1660 
1680 PRINT ASC (at) 
1690 GOTO 1660 


Editeur de son 


Le CPC dispose d'un processeur sonore vraiment remarquable mais 
plus d'un fana de musique aura certainement déjà été découragé par 
le complexité des instructions musicales et l'apparent illogisme 
de leur syntaxe. Comment s'expliquer en effet qu'il faille appeler 
avec l'instruction SOUND les canaux des notes en premier lieu et 
n'appeler le volume qu'en quatrième position? Comment se rappeler 
précisément des diverses possibilités des techniques de rendez- 


vous? 


Nous ne pensons pas que l'apprentissage par coeur puisse être ici 
d'un grand secours mais plutôt que la seule solution est de 
rechercher sans cesse dans le manuel les informations dont on a 


besoin. 


Ou encore: comment se rappeler quelle courbe d'enveloppe où de 
volume est actuellement activée et quelle courbe nous pouvons 


activer? Faut-il faire des petites notes sur papier? 


Notre 'éditeur sonore' vous offre une solution bien plus commode. 
Vous trouverez en effet tous les paramètres avec leur 
signification en français sur une page de l'écran. Vous pourrez 
ainsi, simplement en appuyant simultanément sur la touche ‘SHIFT' 
et sur une autre touche, monter (par exemple <SHIFT> ‘'H' => 
augmente la hauteur de la note) ou en appuyant simultanément sur 
la touche 'CTRL' et sur une autre touche, descendre (par exemple 


<CTRL> 'L' => diminue le volume). 
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Vous pouvez ainsi produire à l'écran, très tranquillement, 
n'importe quelle note où bruit en appuyant ensuite sur la touche 
ENTER pour activer le son ainsi édité. N'oubliez pas qu'il faut 
activer, pour produire un son avec notre éditeur sonore, le 


volume, la hauteur de la note et au moins un canal sonore. 


Vous pouvez activer jusqu'à 16 courbes différentes pour le son 
d'une part et pour le volume d'autre part et vous pouvez utiliser 
ces courbes lors de l'édition des notes. En appuyant sur la touche 
SHIFT et la touche 'N' vous pouvez entrer un numéro ENV et les 
paramètres correspondants. Le numéro ENV est utilisé pour la 
sauvegarde et n'a donc pas la même signification que le numéro de 
la courbe d'enveloppe. Le nombre de paramètres minimum que vous 


devez entrer est donc dans notre programme non pas de 3 mais de 4. 


Vous pouvez entrer les courbes ENT (courbes de hauteur de la note) 
de la même façon en appuyant simultanément sur les touches ' SHIFT' 
et '0'. Vous pouvez consulter les courbes que vous avez réalisées 


avec <SHIFT> 'P'. 


Nous espérons que vous aurez beauxoup de plaisir à éditer et créer 


de nouveaux sons sur votre CPC! 
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80 
70 
80 
90 
100 
464 
119 
120 


RS 


) 
149 
FEN 
159 
FEN 
160 
FEN 
170 
180 
RIN 
190 
RIN 
2700 
KRIN 
210 
220 
FR 
270 


240 


REM Frogramme sonore 

REM Frogrammes Basic pour le CFC4 
REM Copyright 1984 DATA BECKER % 
RENM Rainer Lueers 

INF O,1:1INKH 1,24: INK 2,1,24 

DIM a(15,15) ,a1 (15,15) 

MODE 1 

SFEFED INF 20,20 

PEN 1 


REM Creation image ecran 


FRINT" Le ";:FEN 2:PRINT'"son";: 
FRINT 
FRINT" ÉSHIFTÉ 5 + £CTRLÈ 
PRINT 


FRINT TAB(11) "A:Canal A "33IF a 
2: PRINT'AIT'": PEN 1 

PRINT TAR(11) "EH:Canal HB "3:1F a 
P:FRINT"'AII":FEN 1 

FRINT TAR(11) "C:Canal C "32:1F a 
2:FRINT'"'all'":PEN 1 

FRINT 

PRINT TAB(4) "D:Rendezvous avec 

T'et." ELSE FEN 2:FRINT'"all":PEN 

FRINT TAR(4) "E:Rendezvous avec 

T'et." ELSE FEN 2:FRINT'"all":PEN 

PRINT TAR(4) "F:Rendezvous avec 

T'et." ELSE PEN 2:FRINT'"all'":PEN 

PRINT 

FRINT TAR(7) "G:Feriode bruit"; 
INT "et." ELSE FEN Z:LOCATE 27,1% 





PRINT 
FRINT TAR(4) "H:Hauteur note “3: 


64 


: PEN 1:PRINT'" sur 


s " 


<O THEN PRINT'et." 


=0 THEN FRINT'et." 


=O THEN FRINT'et." 


canal À "3:1F d=0 


1 


canal BE ";:1F e=0 
L 
canal C ":2:1IF f=0 


se 


IF g=0 THEN LOCATE 
:FRINT g:FEN 1 


IF h=0 THEN LOCATE 


:FRINT'et." ELSE FEN 2:LOCATE 22,1S:PRINT h:PEN 1 


2350 


260 


FRINT 
PRINT TARB(4) "I:Duree en 1/100 S 


ec. “321F i=0 T 


INT'et." ELSE PEN 2:LOCATE ?8,21:PRINT i:PEN 1 


270 
280 


CAT 


PRINT 


le CFC 


ELSE 


ELSE 


ELSE 


THEN F 


THEN F 


THEN F 


ax se 
22,15 


HEN FR 


PRINT TAB(4) "“J:Appel d'une courbe ENV "3:1F j=0 THEN LO 
E Z23,19:PRINT"O" ELSE FEN Z:LOCATE 32,19:PRINT j:PEN 1 
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299 PRINT TAE(4) "“K:Appel d'une courbe ENT "3;3:1F kH=O THEN LO 
CATE Z3,20:PRINT"O" ELSE FEN 2Z:LOCATE 22,20: PRINT j:FEN 1 
300 PRINT 

210 PRINT TAR(11) "L:Volume ";2:1F 1-0 THEN LOCATE 25,22:PRIN 
T'et." ELSE FEN 2:LOCATE 25,22:PRINT l:FEN 1 

2420 PRINT 

330 PRINT TAB(4) "N:Entr. ENV O:Entr. ENT Piliste" 

FAQ af=INFEVE 

250 REM Fixer canal son et rendez-vous 

360 a1=atb+c+d+e+f 

270 REM Interrogation clavier et 

275 FEM production son lorsque ENTER: 

776 REM enfonce 

280 ÏF af=CHR#(17) THEN SOUND a1,h,i,1l,j,k,g 

390 IF at-CHR#(14) OR a$=CHR#(78) THEN GOTO 2120 

400 1F a#F=CHR#(1S) OR a$=CHR#(79) THEN GOTO 2250 

410 IF a$=CHR#(16) OR at=CHR#(80) THEN GOTO 2370 

AZO IF at="" THEN GOTO 3540 

420 IF ASC(at)>12 AND ASC(a#t)26S THEN GOTO 340 

AAQ CIF ASC(a#f) 76 THEN GOTO 340 

450 IF ASC(a#)>12 THEN GOTO 1250 

480 KEM Modification de l'ecran quand 

462 REM une touche a ete actionnee 

470 ON ASC(a+t) GOSUB 490,520,570,610,650,690,7:0,870,910,100 
0,1080,1160 

489 GOTO 740 

490 a=0 

500 LOCATE 21,5 

S10 PRINT'et." 

SG20 RETURN 

SEO b=0 

540 LOCATE 21,4 

550 FRINT'et." 

960 RETURN 

570 c=0 

580 LOCATE 21,7 

5390 PRINT'et." 

800 RETURN 

619 d=0 

620 LOCATE 30,9 


= 19 


PRINT'et." 
RETURN 
e=0 
LOCATE 
FRINT'et." 
FE TURN 


50,10 


f=0 
LOCATE 70,11 


710 FRINT'et." 

720 RETURN 

720 IF g'0 THEN g=g-i 

740 IF qg=0 THEN LOCATE 27,1%:PFRINT'et. 
750 LOCATE 27,17 

760 FRINT" # 

770 LOCATE 27,17 

780 FEN 2 

790 FRINT g 

900 FEN 1 

810 RETURN 

890 IF h>O THEN h=h-1 

870 JF h=0 THEN LOCATE 22,15:PRINT'et. 
840 !OCATE 22,15 

850 PRINT" d 

860 LOCATE 22,15 

270 PEN ? 

880 FRINT h 

990 PEN 1 

909 RETURN 

910 IF i>O THEN i=i-i 

920 IF 170 THEN LOCATE 28,17:PFRINT'"'et, 
970 LOCATE 28,17 

940 FKRINT" de 

950 LOCATE 28,17 

960 FEN 2 

970 PRINT 1 

980 FEN 1 

990 RETURN 

1000 IF 3:00 THEN j=i-1 


1010 LOCATE 
1020 PRINT" 


32,19 


— "96; — 


"2: RETURN 


"2 RETURN 


"2 RETURN 


1070 LOCATE 22,19 

1040 IF j:0 THEN FEN 2? 
1050 PRINT ;j 

1060 PEN 1 

1070 RETURN 

1080 IF kK>O THEN k=k-1 
1090 LOCATE :2,20 

1100 FRINT" E 

1110 LOCATE 32,2 

1120 IF E5O THEN PEN ? 
1179 PRINT Kk 

1140 FEN 1 

1150 RETURN 

1160 IF 120 THEN 1=1-1 
1170 LOCATE 25,22 

1180 FRINT" 1 

1190 LOCATE 25,2? 

1200 IF 1=0 THEN PFRINT'et.": RETURN 
1219 PEN ? 

1720 FRINT 1 

1270 PEN 1 

1240 RETURN 

1259 ON (ASC (at) -64) GOSUR 1270,1770,1790,1450,1510,1570,16Z 
0,1710,1790,1870,1950,2030 
1269 GOTO 740 

1270 a=1 

1280 LOCATE 21,5 

1290 FEN 2? 

FRINT'"'all" 

FEN 1 


RETURN 





b=2 

1340 LOCATE 21,6 
1750 FEN ? 

1760 FRINT'"all" 
1:70 PEN 1 

1:80 RETURN 

15:90 cr4 

1400 LOCATE 21,7 
1410 FEN ? 


AT 


1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


330 


1580 
1590 
1600 
1410 
1620 
1670 
1640 
1650 
1660 
1670 
1680 
1490 
1790 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


PRINT'"al11" 
FEN 1 
RETURN 

d=8 

LOCATE 30,9 
PEN ? 
PRINT'"al1" 
FEN 1 
RETURN 

e=16 

LOCATE 30,10 
FEN 2? 
PRINT'"'all" 
FEN 1 
RETURN 


=79 
3 


LOCATE 70,11 

PEN 2? 

PFRINT'"'al11" 

FEN 1 

RETURN 

1F g°15 THEN aq=gt#t1 
LOCATE 27,13 
FRINT" " 

LOCATE 27,13 

PEN ? 

PRINT g 

FEN 1 

RETURN 

IF h°4095 THEN h=h+#+1 
LOCATE 22,15 
FRINT" ” 

LOCATE 22,15 

FEN ? 

PRINT h 

PEN 1 

RETURN 

1F 1232767 THEN iri+i 
LOCATE 28,17 
FRINT" J 
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1820 
1850 
1849 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2070 
29040 
2050 
2060 
2070 
2080 
2090 
2100 
2119 
217270 
2130 
2140 
2150 
2160 
13 


2170 


2180 


AND z1<>16) 


LOCATE 28,17 
PEN 2 

PRINT i 

PEN 1 

RETURN 

IF j<15 THEN 
LOCATE 


en Ne 


S2 3 


19 
PRINT" " 

LOCATE 
FEN 2 


779 


SA 


19 


PRINT j 

FEN 1 

RETURN 

IF K£<15S THEN 
LOCATE 22,20 
PRINT“ * 
LOCATE 32,20 
PEN ? 

PRINT k 

PEN 1 

RETURN 

IF 1215 THEN 
LOCATE 25,22 
PRINT" LS 
LOCATE 
PEN 2 


25,22 


PRINT 1 

FEN 1 

RETURN 

REM Creation 
LOCATE 4,24 
PRINT" 
LOCATE 4,2 
INPUT'"No ENV 


IF z<0 OR 


IF 
IF 


z21=4 THEN 
zi=7 THEN 


2:15 OR 
THEN GOTO 2120 ELSE LOCATE 4,24: PRINT" 


j=iti 


k=Kk+1 


1=1+1 


d'une nouvelle courbe ENV 


et nombre de parametres“;z,zi 


(1454 AND z1<>7 AND 


z1€> 10 AND z1<: 
“:LOCATE 4,24 
INPUT"4 Par. 


INPUT"7 Par. 


“sa(z,0),a(z,1),a(z,2) ,a(z,z) 


“sa(z,0),a(z,1),a(z,2) ,a(z,3) 


,a(z,4),a(z,5) ,a(z,6) 
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2199 IF z21=10 THEN INPUT"10 Far. "5a(z,0),a(z,1),a(z,2),a(z, 
7) ,a(z,4),a(z,5),a(z,6),a(z,7),a(tz,8) ,a(z,9) 
2200 IF z21=1Z THEN INPFUT"1Z Par. ‘ 


3) ,a(z,4),az,5) ,a(z,6) ,a(z,7),a(z,8),a(z,9),a(z,10),a(z,11) 





3a(z,0),a(z,1),a(z,2),a(z, 


,a(z,12) 

2210 IF z1=16 THEN INPUT"16 Far. "s3a(z,0) ,a(z,1),a(z,2),atz, 

5) ,a(r,4) ,a(z,5) ,a(z,6) ,a(z,7),a(z,8),a(z,9) ,a(z,10),a(z,11) 

,atz,12),atz,12),a(z,14),a(z,15) 

2220 ENV a(z,0) ,a(z,1),a(z,2) ,a(z,2),a(z,4) ,a(z,5) ,a(z,6) ,at 

z,7),az,8),a(z,9),a(z,10),a(z,11),a(z,12) ,a(z,12) ,a(z,14),a 

(z ,15) 

2230 GOTO 22:70 

2240 REM Creation d'une nouvelle courbe ENT 

2250 LOCATE 4,74 

2260 FRINT " " 

2770 LOCATE 4,274 

2280 INFUT"'No ENT et nombre de parametres":z,zi 

2290 IF z<0 OR 2%15 OR (z155%4 AND 21257 AND z1#% 10 AND z1<% 

1% AND z1<:16) THEN G60T0 2250 ELSE LOCATE 4,24:PRINT" 
":LOCATE 4,2 

2700 IF z1=4 THEN INPUT"4 Par. "3a1(z,0),ai(z,1) ,a1(z,2),ai( 

Zn) 

2710 IF z1=-7 THEN INFUT"7 Par. "sa1(z,0),a1(z,1) ,ai(z,2) ,ai( 

7,1),a1(z,4),a1(z,5) ,ai(z,46) 

2270 IF z1=-10 THEN INPUT"10 Far. "j3al(z,0),al(z,1),a1l(z,2),a 

1(2,2),a1(z,4) ,a1(z,5) ,at(z,6) ,a1(z,7) ,a1(z,8),at(z,9) 

2720 IF 2z1=17 THEN INFUT"I13 Par. "sa1l(z,0),a1(z,1) ,a1(z,2),a 

1(2,2),attz,4),a1(z,5),al(z,6) ,a1(z,7) ,al(z,8),al(z,9),al(z, 

10) ,a1(z,11),a1(z,12) 

2340 IF z1=16 THEN INPUT'"16 Par. "s;ai(z,0),al(z,1),al(z,2),a 

1(z2,2),a1(z,4) ,al(z,5) ,al(z,6),a1(z,7),a1(z,8) ,a1(z,9),al(z, 

10) ,a1(z,11),a1(z,12) ,ai(z,17) ,a1(z,14) ,a1(z,15) 

2250 ENT a1(z,0),al(z,1),a1(z,2) ,al(z,2:) ,ai(z,4) ,al(z,5),al( 

z,6),ai(z,7),a1(z,8) ,al(z,9),ai(z,10) ,a1(z,11),a1(z,12) ,ai (z 

13) ,a1(z,14) ,al(z,15) 


2360 REM Representation sur l'ecran 


2362 ‘ des courbes ENV et ENT 
2364 existantes 

2370 MODE 1 

2380 a+t="" 
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2790 INFUT"'ENV-Liste ou ENT-Liste (V/T) "“;a# 

2400 IF af="" THEN GOTO 60 

2410 IF at°>"V" AND a$<>"v" AND a#t<>"T" AND a$<>"t" THEN GOT 
9 2770 





2420 IF at<>"v" AND at°>"V" THEN GOTO 2570 

PATO REM Sortie des courbes ENV 

2449 FOR n=0 TO 15 

2450 FOR m=0 TO 15 

2460 IF a(n,0)=0 THEN GOTO 2470 ELSE PRINT a(n,m); 
2470 NEXT m 

2480 PRINT:FAPER 3:PRINT n3"."3:2:PAPER 4 

2490 NEXT n 

2500 at=INKEY# 

2519 IF a$="" THEN GOTO 2500 ELSE GOTO 60 

2570 REM Sortie des courbes ENT 

2570 FOR n=0 TO 15 

2540 FOR m=0 TO 15 

2550 IF attn,0)-0 THEN GOTO 2560 ELSE PRINT ai n,m); 
2560 NEXT m 

2570 PRINT:PAPER Z:PRINT n3"."3;2:PAPER 4 

2580 NEXT n 

2590 at=INFEY# 

2690 IF a$="" THEN GOTO 2590 ELSE GOTO 69 


Editeur de texte 





Nous n'avons volontairement pas appelé ce programme ‘traitement de 
texte' car nous savions qu'en employant ce terme nous aurions 
nécessairement déçu l'attente des lecteurs ou programmeurs 


experts. 


Un programme de traitement de texte doit en effet au moins 
permettre d'insérer des paragraphes supplémentaires dans un texte 
déjà existant, ce qui est cependant très difficile à réaliser si 


on ne dispose que de la sauvegarde sur cassette. 


Un programme de traitement de texte devrait normalement permettre 
également un couplage du texte avec un fichier d'adresses 
(mailing) et permettre également une sauvegarde de section de 
texte indépendamment de la mémoire disponible, les diverses 
sections de texte ainsi sauvegardées devraient également pouvoir 


être affichées à l'écran lorsqu'on les "feuillette". 


La sauvegarde sur cassette rend un tel programme de traitement de 
texte très difficile à réaliser et de toute façon un programme 
aussi performant et complet dépasserait largement le cadre de cet 


ouvrage. 
Maintenant que nous avons limité votre attente, voici quelles sont 
les possibilités malgré tout très intéressantes de notre éditeur 


de texte: 


- Vous pouvez stocker jusqu'à 10 pages de 22 lignes dans votre CPC 
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Vous pouvez feuilleter votre texte vers le début ou vers la fin 
du texte en employant les commandes curseur habituelles. 

Vous pouvez écrire des textes ou les placer où vous pensez 
qu'ils doivent figurer. 

Vous pouvez supprimer des lettres ou des groupes de caractères. 

Si vous avez erré à l'aventure avec le curseur, vous pouvez le 
replacer dans son emplacement de départ simplement en appuyant 
sur la touche COPY. 

L'emplacement du curseur est indiqué dans une fenêtre 
explicative et sa position horizontale est en outre marquée 
nettement par un trait. Ce "trait de soulignage" est produit 
dans la fenêtre explicative en mode de réécriture (PRINT 
CHR$(22);CHR$(1) ). 

Vous pouvez feuilleter votre texte vers le début en plaçant le 
curseur en ligne 1 et en appuyant sur la touche de curseur haut. 
Vous pouvez feuilleter votre texte vers la fin soit en plaçant 
le curseur en ligne 22 et en appuyant sur la touche de curseur 
bas, soit en appuyant simultanément sur les touches 'CTRL' et 
"B'. 

Vous pouvez sauvegarder votre texte en appuyant simultanément 
sur les touches CTRL et S puis en entrant le nom de fichier 
souhaité. 

Vous pouvez charger un texte en appuyant simultanément sur les 
touches CTRL et L. 

Vous pouvez enfin faire rechercher certaines expressions dans 
votre texte (et faire poursuivre la recherche après qu'une 


expression ait été trouvée) et faire imprimer votre texte. 


La dernière fonction, l'impression du 


mérite une explication supplémentaire. 
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texte que vous avez entré, 


Vous avez entré votre texte 


dans un format de HO colonnes. Mais lors de l'impression, votre 
CPC éditera le texte sur l'imprimante avec le nombre de caractères 
par ligne que vous choisissez, le minimum étant HO caractères par 


ligne. 


Encore un conseil: 

Si vous ne possédez pas d'imprimante, vous pouvez quand même vous 
amuser à faire éditer le texte adapté pour l'impression sur 
l'écran du moniteur, en mode 80 colonnes. Mais vous devez pour 


celà apporter de légères modifications au programme: 


1) Ajoutez la ligne suivante: 


755 MODE 2 


2) Remplacez en lignes 780 et 790 les instructions PRINT #8 par de 


simples PRINT. 


3) 11 est aussi préférable que le programme attende un peu après 
avoir édité le texte. Sur l'imprimante, ce n'est pas nécessaire 
puisque vous pouvez toujours consulter le résultat obtenu sur 
papier. Vous pourriez donc rajouter en ligne 810 soit une boucle 
(FOR n=1 TO 10000) avant l'instruction de retour au mode 1 "MODE 
1', soit même un message vous demandant si vous voulez continuer 
(PRINT'FRAPPEZ UN TOUCHE") suivi d'une interrogation du clavier 


avec INKEY$. 


Vous pouvez maintenant faire diverses expériences et voir par 


exemple comment le texte se présente en 80, 70 ou 60 colonnes. 
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10 


90 


REM Editeur de texte 

REM Programmes Basic pour le CPC464 
REM Copyright 1984 DATA BECFER % 
REM Rainer Lueers 

ON ERROR GOTO 850 

MODE 1:DIM at(i0,273):page=i:si-1 
FOR n=1 TO 10 

FOR m=1 TO 23 

a$(n,m)=STRING#S(40," ") 

NEXT m,n 


100 REM Creation du premier ecran 


110 WINDOW #1,2,39,1,1 
120 WINDOW #2,1,40,2,23 


120 WINDOW #3,2,:9,24,24 
140 WINDOW #4,1,40,25,25 
150 PAPER #1,Z 


160 PAPER #3,3 


170 PAPER #4,7Z 


180 CLS HI1:CLS H#2:CLS #Z:CLS #4 


190 PRINT #1,STRING#(28,CHR#(94)); 


200 PRINT #3,STRING#(Z8,CHR#(241)); 
210 CLS #A4:PRINT #4,VPOS (#2); POS (#2) 


220 LOCATE #4,15,1:PRINT #4,"<CTRL> 


+ SLRIF"3;:LOCATE #4,P0S( 


#2) ,1: PRINT #4 ,CHR# (22) ; CHR# (1) ; CHR# (95) ; CHR# (22) : CHR# (O) ; 


230 IF si<page THEN s1i=page 


240 REM Attendre la frappe d'une touche 


250 a+t=INKEY# 


260 IF a$="" THEN GOTO 250 


270 GOTO 670 


280 GOSUR 370 


290 GOSUB 550 
300 GOSUB 570 


310 PRINT #2,a#;2:1F a$=CHR#(241) THEN PRINT #2 


320 GOTO 210 


330 REM Editeur ecran: 


340 IF ASC(at)<244 AND ASC(a+t) >240 AND marque“>1 THEN 
=1: 


reconaissance des limites, 
possibilite de feuilleter et 


touche <DEL* 


v=VF0S (#2) : p=POS (#2) 


= 45 = 


mar que 


350 REM CHR4# (224) 


351 c'est-a-dire: ‘COPY’ enfoncee 
3352 ‘ signifie: ramener curseur au 
SES: point de depart 


360 IF ASC(at)=-224 AND marque=1 THEN marque=O0:LOCATE #2,p,vi: 
at="":60T0 540 

270 IF POS(#2)=40 AND VPOS(#2)=22 AND a$<>CHR#(13) AND ASC (a 
+)°128 THEN PRINT CHR#(7) 3; :LOCATE #2,1,22: RETURN 

Z8O0 REM CHR# (127) 


EL Ÿ c'est-a-dire: ‘DEL’ enfoncee 
282 ‘ signifie: supprimer caractere 
383 ‘ a gauche du curseur 


790 IF ASC(at)=127 AND VPOS(#2)<2>1 AND POS(#2)=1 THEN LOCATE 
#2,40,VFOS(H2)-1:FRINT #2," ";:LOCATE #2,40,VPOS(#2)-1:a#=" 
“:GOT0 540 

400 IF ASC(at)=-127 AND POS(#2)<>1 THEN LOCATE #2,POS(H2)-1,V 

FOSCHD):FRINT #2," "s2:LOCATE #2,F0S (#2) -1,VPOS (#2): at-"": GOT 

0 540 

A10 REM CHR# (240) 


411 c'est-a-direz: fleche ‘haut 
A12 enfoncee 5ignifie: curseur 
417 ° une ligne ou une page plus haut 





420 IF ASC(at)=240 AND VPFOS (#2? 





51 THEN LOCATE #2,FO0S(CH2) ,VP 
OS(#2)-1:at-"":G6GO0OT0 540 ELSE IF ASC(at)=240 AND VPOS(#2)=1 T 
HEN IF pagee’:1 THEN page=page-1:CLS #2:FOR n=1 TO ?22:FRINT 
#2? ,at (page,n)3;:NEXT n:LOCATE #2,1,1 

470 REM CHRE# (241) 


471 c'est-a-dire: fleche ‘bas’ 

az? enfoncee 

33 * Signifie: curseur une ligne ou 
434 une page plus bas 


440 IF ASC(at)=241 AND VFOS(H#2)<>:272 THEN LOCATE #2,POS (#2) ,V 

FOSCH2)+1:a#-"":GOTO 540 ELSE IF ASC(a#t)=-241 AND VFOS (#2) =22? 
THEN page=page+il:CLS #2:FOR n=1 TO 22:PRINT #2,at(page,n):: 

NEXT n:LOCATE #2,1,1 

450 REM CHR#(242) 


JA. c'est-a-dire: fleche ‘gauche’ 
452 ” enfoncee 

452 signifie: curseur une case vers 
454 © la gauche 
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460 IF ASC(at)=242 AND VFOS(#2)<51 AND POS(#2)=1 THEN LOCATE 
#2,VFOS(H2)-1,40:a#t="":GOT0 540 

470 IF ASC(a#)=242 AND VFOS(#2)<2%1 THEN LOCATE #2,FOS(#2)-1, 
VPOS (#2) :a#tr"":GOTO 540 

480 REM CHR# (247) 


AR c'est-a-direz: fleche ‘droite 
482 ‘ enfoncee 

ASE signifie: curseur une case vers 
484 ‘ la droite 


A9OQ IF ASC(at)=247 AND VPFOS (#2) € 





AND POS(#2)=-40 THEN LOCA 
TE #2,1,VFOS(H#2)+1:at="":GOTO 540 

500 IF ASC(at)-247 AND VFOS(H®)2:27 THEN LOCATE #2,PO0S (#2) +1 
,VFOS (HD) 2at-"":GOTO 540 

S10 IF ASC(at)22744 AND ASC(a#) 279 THEN mar que=0: at="":6GOTO 
540 

320 IF ASC(at)=224 THEN at="" 

GIO IF af=CHR# IT) THEN at=CHR#t (241) 

940 RETURN 

5950 IF VPOS(H#2)-22 AND at=CHR# (241) THEN PRINT #2,at;:MID+#(a 
+(page,VFOS (#2) ,FOS (CH?) -1,1)-af:page=pagetisat="":CLS #2? 
560 RETURN 

570 LOCATE #1,1S5,1:PRINT #1," Page";page: 

580 LOCATE #2,15,1:PRINT #3," Page":;page+1; 

S9O0 IF a#<>"" THEN MID# (at (page, VFOS(#2)) ,POS (#2) ,1)=at 

600 RETURN 

610 REM Tester quelle est la touche enfoncee 

620 REM <CTRLS °F” 

621 Feuilleter 

20 IF ASC(a#)=6 AND page<>10 THEN page=page+1:CLS #2:FOR n= 
1 TO P2:FRINT #2,at (page,n);2:NEXT n:LOCATE #2,1,1:GOT0 700 
640 REM €CTRLE ‘S'° 


641 Sauvegarde sur disquette 
650 IF ASC(a#t)=19 THEN CLS #4:INFUT #4,"Nom "3 f#:1F f+#="" TH 
EN GOTO 820 ELSE f#="!"4#f#:OPFENOUT #f#:PFRINT #9,S1:FOR n=1 TO 


Si:FOR m=1 TO 22:PRINT #9,a#t(n,m):NEXT m,n:CLOSEOUT:GOTO 71 
Q 


660 REM <CTRLS ‘'L° 


661 Charger a partir de 1a 
662 disquette 
670 IF ASC(at)=12 THEN CLS #4:INPUT #4,"Nom "3; f#:1F f#="" TH 


47 = 


EN GOTO 2820 ELSE f#="!"+#f#:O0OPENIN f#: INPUT #9,S1:FOR n=1 TO 
Si:FOR m1 TO 22: INPUT #9,a#t(n,m):NEXT m,n:CLOSEIN:page=1:CLl 
S H2:FOR n=1 TO 22:FRINT #2,a#(page,n)::NEXT n:GOT0O 300 

680 REM <CTRLE ‘R° 

681 Recherche 

690 IF ASC(at)=-18 THEN CLS #4: INPUT #4,"Terme a rechercher " 
sft:1F f#="" THEN GOTO 710 ELSE FOR n=1 TO si:FOR m=1i TO 22: 
IF INSTR(aft(n,m),f#)>0 THEN CLS #2:FOR mm=1 TO 22:PRINT #2,a 
+(n,mm)3;:NEXT mm:page-=n:LOCATE #?,1,m:GOTO 710 ELSE NEXT m,n 


700 REM Si le terme recherche est trouve 


701 la recherche peut etre 
702 ‘ poursuivie 
705 04+-"0" 


710 IF ASC(at)=18 THEN CLS#4:PRINT#4,n3;m;:INPUT#4, "Encore (0/ 
D'sff#t:ff#F-UPPERS CfFH)2IF fF#-O#$THEN FOR n=page TO Ss1:FOR m= 
VFOS (#7)+1 TO 23:1F INSTR(at(n,m),f#)>0 THEN CLSH2:FOR mm=1 
TO P2:FRINTH? ,at(n,mm)s;:NEXT mm:page=n:LOCATE#?,1,m:GOTO 710 
ELSF NEXT m,n 


720 REM <CTRL® ‘1° 
721 Routine d'impression en 80 
722. * colonnes 


720 IF ASC(at)-9 THEN CLS#4 ELSE GOTO 820 

740 INFUT #4,"Imprimante connectee (0/ ) "s;ff#:#ff#=UPPER# CF 
+):1F LEFT#(ff#,1)<3>"0" THEN GOTO 820 

750 CLS#4:INFUT #4,"Caracteres par ligne (>=40) "3z1:1F z21<4 
O THEN GOTO 750 

760 a$="":FOR z2=1 TO Ss1:FOR z3=1 TO 22:FOR z4=1 TO 40 

770 IF MID+(a#(z2,z2) ,z4,1)-=" " THEN zS=LEN(a#) ELSE IF MID# 
(at(z2,22),z4,1)=CHR#(241) THEN z4=40:G60OT0 790 

780 af-a#f+MID#(at(z2,z3),z24,1):1IF LEN(at)=z1 THEN PRINT #8,L 
EFT+(a#,29) :a$t-RIGHT#(at,LEN(a#)-z5):GOTO 800 ELSE GOTO 800 
790 PRINT #8,at:at="" 

800 IF LEFT#+(a$,1)=" " THEN a$=RIGHT#(a#f,LEN(a#)-1) 

810 NEXT z4,z3,z2:MODE 1:GOT0 100 

820 IF ASC(at)<72 AND ASC(a#)<>13 THEN at="" 

870 GOTO 280 


840 REM Routine de traitement des erreurs 


850 at=" ":RESUME NEXT 
860 at-at+MID#(at(z2,z2) ,z4,1)21F (LEN(at)=z1 AND MID#(at(z2 
,23),24,1)4>" ") THEN PRINT LEFT#(af,z5) :a#=RIGHT#(at,LEN(at 
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)—-z5):GOT0 800 ELSE IF RIGHT#(a#,1)=CHR#(241) THEN at=LEFT#( 
af,LEN(a#)-1):z4-40 ELSE GOTO 800 
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Jeu de caractères français 





Si vous placez votre CPC moderne à côté d'une bonne vieille 
machine à écrire traditionnelle, vous ferez vite un constat 
agaçant. Vous voyez en effet d'un côté un ordinateur international 
(ou plutôt anglo-américain) et qui ne dispose donc pas d'accents 
français ni de la cédille; et de l'autre côté une machine à écrire 
qui possède bien toutes les lettres dont on a besoin pour écrire 


en français mais qui -en principe- n'est pas un ordinateur. 


Notre programme a donc pour but de hisser votre CPC au niveau de 
la machine à écrire, au moins en ce qui concerne le clavier: le 
‘z' se trouve là où il doit être, à côté du 'a' et d'une manière 
générale toutes les touches se trouvent là où elles figurent sur 
les machines à écrire française normales. Vous pourrez en outre 


utiliser les accents et la cédille. 


Mais que deviendront les lettres servant à désigner les 
différentes touches de votre ordinateur? Bien entendu, à moins que 
vous ne colliez de petites étiquettes sur les touches du clavier, 


les touches resteront comme avant. 


Et que deviendront les caractères que vous pouvez normalement 
produire avec les touches qui ont maintenant reçu une nouvelle 
affectation? Une phrase d'exemple en ligne 250 vous permet de voir 
quels sont les changements effectués. Si vous faites lister cette 
ligne avant de lancer le programme, vous pourrvez voir quels 
signes ont été remplacés par des accents ou la cédille. 


Si vous en avez assez d'utiliser ce jeu de caractères français, 


vous pouvez éteindre votre ordinateur ou provoquer un RESET avec 


les touches SHIFT, CTRL ou ESC. 
10 REM Jeu de caracteres francais 


20 REM Frogrammes Basic pour le CPC464 
30 REM Copyright 1984 DATA BECKER & 

1 REM Rainer Lueers 

40 SYMBOL AFTER 22 

50 REM Lecture de la forme des 

51 REM caracteres francais en lignes 
52 REM DATA 

6O FOR m=i TO 10 

70 READ a 

80 FOR n=1 TO & 

90 READ an) 

100 NEXT n 

110 SYMBROL a,a(1),a(2) ,a(3) ,a(4) ,a(5) ,a(6) ,a(7) ,a(8) 
120 NEXT m 

170 REM Nouveau jeu de caracteres 

151 REM FRANCAIS 

140 FEY DEF 67,1,97,65 

150 FEY DEF 59,1,122,90 

160 FEY DEF 69,1,117,81 

170 FEY DEF 29,1,109,77 

180 FEY DEF 71,1,119,87 

190 FEY DEF 28,1,958,42 

200 KEY DEF 57,1,51,92 

210 KEY DEF 24,1,94,126 

220 FEY DEF 22,1,64 

270 MODE 1 

240 REM Phrase d'exemple 


250 FRINT'"'Le probl°me où plutnt Ll'intérst qui na'tde toute v 
olontc de crçer des textes fran'ais sur un ordinateur est 
le nombred'accents propres de notre langue. Eh bien, q 


ui l'e t cru? I1 n'y a pas lé d'endroit oè le b°t blesse pou 
r le CFC'!" 
260 END 
270 REM Lignes DATA avec la forme des caracter 
es francais 
280 REM Lettre ‘c cedille” 
290 DATA 126 
Z00 DATA %x 00000000 
510 DATA %x# 00000000 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Lettre a accent grave 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA * 


DATA 


Lettre o accent circonflexe 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Lettre u accent grave 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Lettr 
DATA 
DATA 
DATA 


Lx 


Ux 
Rex 
Lx 


Sex 


127% 
Lex 
Lx 
Lx 


Lex 


124 


2x 


125 


Lx 


Lx 
e e 


91 


Lx 





Lx 


00111100 
01100110 
01100000 
01100110 
00111100 
00011000 


01100000 
00110000 
01111000 
00001100 
01111100 
11001100 
01110110 
90000000 


00111100 
01100110 
00111100 
01100110 
01100110 
01100110 
00111100 
90000000 


00110000 
00011000 
01100110 
01100110 
91100110 
01100110 
00111111 
90000000 


accent grave 


00110000 


00011000 


720 DATA &x 00111100 

730 DATA &x 01100110 

740 DATA %x 01111110 

750 DATA %x 01100000 

760 DATA &x 00111100 

770 DATA &x*%x 00000000 

780 Lettre e accent aigu 
790 DATA 92 

800 DATA &x 00001100 

B10 DATA &x 00011000 

820 DATA %% 00111100 

930 DATA &x 01100110 

840 DATA %x 01111110 

950 DATA 8x 01100000 

860 DATA 2x 00111100 

870 DATA %x%x 00000000 

880 Lettre e accent circonflexe 
890 DATA 93 

900 DATA %x%x 00111100 

910 DATA fx O1100110 

920 DATA %%x 00111100 

930 DATA &x O1100110 

940 DATA %x% 01111110 

950 DATA %x%x 01100000 

960 DATA &x 00111100 

970 DATA &x 00000000 

980 Lettre a accent circonflexe 
990 DATA 94 

1000 DATA &x%x 01111000 
1010 DATA x 11001100 
1020 DATA %x 01111000 
1030 DATA &x 00001100 
1040 DATA @x 01111100 
1050 DATA 8x 11001100 
1060 DATA ®%x>x 01110110 
1070 DATA %x 00000000 
1080 Lettre u accent circonflexe 
1090 DATA 95 

1100 DATA 8x 00111100 
1110 DATA 8x 01100110 
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1120 DATA &x 00000000 
1120 DATA 2x 01100110 
1140 DATA %x 01100110 
1150 DATA &x 01100110 
1160 DATA %x O0111111 
1170 DATA %x%x 00000000 
1180 Lettre i accent circonflexe 
1190 DATA 96 

1200 DATA %x 00111100 
1210 DATA 8x5 O1100110 
1220 DATA 8x OQ0011000 
1270 DATA 8x 00011000 
1240 DATA %x%x 00011000 
1250 DATA 8x 00011000 
1260 DATA 8x 00111100 
1270 DATA 8x 00000000 
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Jeu de signes mathématiques 





Ce programme ne comprend que deux sections: 


Les lignes 410 à 2560 contiennent en ligne de DATA 24 signes 
mathématiques couramment utilisés. 

11 s'agit exactement des signes suivants, que vous pouvez appeler 
en appuyant sur la touche CTRL et la touche figurant en regard de 


chaque signe: 


Alpha a Beta b Gamma c 
n'appartient appartient à e Intégral a 
pas à d 

Pi & Sigma h Omega i 
infini j angle k Triangle 1 
Carré n Cercle o parallèle q 
Rectangle r Congru Ë] Proche de t 
Ensemble vide u 1à 1 v différent de w 
Val. approchée x Proportionnel y approché à Z 


Nous avons choisi de représenter les formes de ces signes en 
nombres binaires de façon à ce que vous puissiez aisément les 
modifier si vous n'êtes pas satisfaits des formes figurant en 
lignes DATA. Mais faites attention à ne fournir que 8 caractères 
par ligne (des O0 ou des 1: O0 signifie pixel éteint, 1 signifie 


pixel allumé). 


Chaque signe se compose de 8 lignes de 8 chiffres binaires. Si 


vous ajoutez à un signe quelconque une ligne supplémentaire, le 
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jeu des caractères suivants sera complètement modifié (vous pouvez 


fort bien essayer pour voir ce que celà donne! ). 


Les lignes 80 à 390 lisent les données avec l'instruction READ. 
Pour que la représentation binaire des différents signes soit bien 
interprétée comme une suite de valeurs numériques qui puissent 
être transformées en nombres décimaux pour leur traitement par 
l'ordinateur, il faut ajouter à chaque chaîne de O0 et de 1 les 


caractères '&x' qui désignent les nombres binaires. 


Après avoir lancé le programme avec "RUN', vous pouvez afficher à 
l'écran les signes mathématiques nouvellement créés en appuyant 
sur la touche CTRL et sur la touche correspondant au signe voulu 


dans la table de la page précédente. 


Pour que le jeu normal de caractères ASCII puisse continuer à être 
utilisé, nous avons affecté nos signes mathématiques aux codes 1 à 
26 qui ne correspondent pas normalement à des caractères 
affichables. Nous n'avons cependant pas modifié le code ASCII 13 
qui correspond à la fonction de la touche ENTER ni le code ASCII 


16 qui correspond à la fonction de la touche DEL. 
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N 


(a) 


el 
© 


el 


ES 
GS 


REM Jeu de caracteres mathematiques 
RENM Frogrammes Basic pour le CFC464 
REM Copyright DATA BECKER % 
Rainer Lueers 
RESTORE 
SYMEOL AFTER 1 
REM Reaffectation des 
caracteres ASCII 1 a 12 
REM pouvant etre appeles 
avec <CTRL> et la touche 


FOR m=1 TO 12 
FOR n=1 T0 8 


READ af 
REM Conversion du nom de la chaine 
en nombre binaire puis decimal 
at(n)="tx "+a+ 
a(n)=VAL ("Rx "+af) 
NEXT n 
SYMBOL m,a(1),a(2) ,a(3) ,a(4) ,a(5) ,a(6) ,a(7) ,a(8) 


160 NEXT m 


REM Reaffectation des 
caracteres ASCII 14 a 15 
pouvant etre appeles 
avec <CTRL> et la touche 

FOR m=14 TO 15 

FOR n=1 TO 8 

READ at 

REM Conversion du nom de la chaine 
en nombre binaire puis decimal 


at(n)="%x "+a# 


240 a(n)=VAL("RXx "+ar) 


NEXT n 


SYMBOL m,a(1),a(2),a(z) ,a(4) ,a(5) ,a(6) ,a(7) ,a(8) 


NEXT m 

REM Reaffectation des 
caracteres ASCII 17 a 26 
pouvant etre appeles 
avec <CTRL> et une touche 


FOR m=17 TO 26 


310 FOR n=1 TO 8 
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320 READ at 

250 REM Conversion du nom de la chaine 

EI en nombre binaire puis decimal 

Z4Q at(n)="%x "+at 

250 a(n)=VAL ("Rx "+a+t) 

Z60 NEXT n 

770 SYMBROL m,a(i),a(?2),a(z) ,a(4) ,a(5) ,a(6) ,a(7) ,a(8) 
380 NEXT m 

290 END 


400 KEM Voici la representation binaire 


AO du Jeu de caracteres mathema- 
402 ‘ tiques. 

407 © Le caractere correspondant a 
404 chaque grouve de DATA est 

405 © affiche en ligne KEM 


410 REM Alpha 

420 DATA 00000000 
470 DATA 00011100 
440 DATA 00100100 
450 DATA 01000100 
460 DATA 01000100 
470 DATA 00100100 
480 DATA 00011100 
490 DATA 00000010 
500 REM Beta 

519 DATA 00000000 
520 DATA 01111000 
530 DATA 01000100 
540 DATA 01011000 
550 DATA 01000100 
560 DATA 01000100 
570 DATA 01111000 
580 DATA 10000000 
9590 REM Gamma 

600 DATA 00000000 
610 DATA 10000010 
620 DATA 01000100 
670 DATA 00101000 
640 DATA 00010000 
650 DATA 00010000 
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740 
750 
769 
770 
780 
790 
800 
810 
820 
8:00 
840 
850 
860 
870 
880 
890 
900 
910 
920 
920 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


1050 


DATA 00010000 
DATA 00010000 


REM n'appartient pas a 


DATA 00000000 
DATA 00000100 
DATA 00011110 
DATA 00100100 
DATA 00111110 
DATA 0600100100 
DATA 00011110 
DATA 00000100 
REM appartient a 
DATA 00000000 
DATA 00000000 
DATA 00011110 
DATA 00100000 
DATA 00111110 
DATA 00100000 
DATA 00011110 
DATA 00000000 
REM Entier 
DATA 00110000 
DATA 00101000 
DATA 00101000 
DATA 00100000 
DATA 00100000 
DATA 10100000 
DATA 10100000 
DATA 91100000 
REM Pi 
DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 00100100 
DATA 00100100 
DATA 00100100 
DATA 00100100 
DATA 00000000 
REM Sigma 


DATA 00000000 
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1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


1240 


1260 
1270 
1280 
1290 
1:00 
13:10 
1720 
1770 
1:40 
1:50 
17:60 
1370 
1:80 
1:90 
1400 
1410 
1420 
1470 
1440 
1450 


DATA 01111111 
DATA 00100001 
DATA 00010000 
DATA 00010000 
DATA 00100001 
DATA O1111111 
DATA 00000000 
REM Omega 
DATA 00000000 
DATA 00111100 
DATA 00100100 
DATA 01000010 
DATA 01000010 
DATA 00100100 
DATA 11100111 
DATA 00000000 
REM infini 
DATA 00000000 
DATA 00000000 
DATA 01101100 
DATA 10010010 
DATA 10010010 
DATA 10010010 
DATA 01101100 
DATA 00000000 
DATA 00000000 
REM angle 
DATA 00000010 
DATA 00000100 
DATA 00001000 
DATA 00010000 
DATA 00100000 
DATA 01000000 
DATA 11111110 
REM triangle 
DATA 00000000 
DATA 00000000 
DATA 00000000 
DATA 00010000 
DATA 00101000 
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DATA 01000100 
DATA 11111110 
DATA 00000000 
REM carre 
DATA 11111110 
DATA 10000010 
DATA 10000010 
DATA 19000010 
DATA 10000010 
DATA 10000010 
DATA 11111110 
DATA 00000000 
REM cercle 
DATA 00000000 
DATA 01111100 
DATA 10000010 
DATA 10000010 
DATA 10000010 
DATA 10000010 
DATA 01111100 
DATA 00000000 
REM parallele a 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA Q1001000 
REM angle droit de 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 11111110 
DATA 00000000 


REM congruent 
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1860 DATA 01100000 
1870 DATA 10011001 
1880 DATA 00000110 
1890 DATA 00000000 
1900 DATA 11111111 
1910 DATA 00000000 
1920 DATA 11111111 
19:50 DATA 00000000 
1940 REM peu different, proportionnel 
1950 DATA 00000000 
1960 DATA 00000000 
1970 DATA 00000000 
1980 DATA 01100000 
1990 DATA 10011001 
2000 DATA 00000110 
2010 DATA 00000000 
2020 DATA 00000000 
2070 REM ensemble vide 
2040 DATA 00000010 
2050 DATA 01111100 
2060 DATA 10001010 
2070 DATA 10010010 
2080 DATA 10100010 
2090 DATA 01111100 
2100 DATA 10000000 
2110 DATA 00000000 
2120 REM 1 pour 1 
2130 DATA 00000000 
2140 DATA 00100100 
2150 DATA 01000010 
2160 DATA 11111111 
2170 DATA 01000010 
2180 DATA 00100100 
2199 DATA 90000000 
2200 DATA 00000000 
2210 REM different 
2270 DATA 00000001 
2230 DATA 00000010 
2240 DATA 11111111 


2250 DATA 00001000 


162 


27860 
2270 
2280 
2290 
2300 
2710 


2470 


2730 


2740 
2750 
2760 
2770 
2380 
2390 
2400 
2419 
2420 
2470 
2440 
2450 
2460 
2470 
2489 
2490 


2500 


DATA 
DATA 
DATA 
DATA 


11111111 


00000000 


REM approche 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00000000 


10911001 
90000110 
01100000 


10011001 


90000000 


REM proportionnel a 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


90000000 
O1110111 
10001000 
10001000 
10001000 
01110111 
00000000 


REM valeur approchee de ..,. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00000100 
00000010 
11111111 
00000010 
00000100 


90000000 
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Jeu de caractères informatiques 


I1 faut bien reconnaître que le jeu de caractères du CPC est très 
esthétique. Bien que les différentes lettres ne soient dessinées, 
comme sur d'autres ordinateurs, que dans une matrice de 8*8 (8 
colonnes de 8 points allumés ou éteints), la qualité du dessin des 


différentes lettres rappelle vraiment la machine à écrire. 


Pourquoi vouloir donc créer un nouveau jeu de caractères? Eh bien, 
celà fait maintenant plusieurs années que dure la grande mode des 
jeux électroniques. Et pour ces jeux futuristes, il est clair que 
ce n'est pas de lettres classiques mais bien de lettres et de 


symboles informatiques qu'on veut pouvoir se servir! 


Le programme comprend deux parties principales: 
1) Un océan de lignes de DATA comportant le jeu de caractères 
informatiques 


2) La routine de traitement et de chargement des DATA. 


Quelques précisions sur la deuxième partie du programme: le CPC 
présente tout (y compris les lettres et autres caractères) à 
l'écran sous une forme grafique. Il est donc, contrairement à ce 
qui est le cas sur les autres ordinateurs, relativement facile, 
non seulement de mélanger à l'écran texte et graphisme, mais aussi 
de représenter la même lettre plusieurs fois avec des formes 
différentes. Nous avons utilisé cette possibilité dans notre 
programme qui vous permet soit de transformer le jeu de caractères 
complet dans écriture informatique, soit de travailler 


simultanément avec les jeux de caractères normaux et 
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informatiques. 


Si vous connaissez la puissante instruction SYMBOL, vous 
comprendrez certainement comment nous avons pu modifier 


complètement le jeu de caractères de votre ordinateur. 


Mais comment peut-on conserver en mémoire deux jeux de caractères 
simultanément? Il faut pour celà que le programme continue de 
tourner car il n'est pas si facile d'appeler simultanément autant 
de caractères avec les touches du clavier. C'est pourquoi nous 
avons placé dans le programme un commutateur entre les deux jeux 
de caractères: si vous appuyez sur TAB vous passez de l'écriture 


normale à l'écriture informatique ou vice versa. 


Voici la technique de programmation que nous avons utilisée: le 
code ASCII du caractère voulu est interprété (par exemple ‘!'=33); 
puis le programme cherche la forme de caractère informatique 
correspondante et... celle-ci n'est pas placée avec l'instruction 
SYMBOL à la place de la forme normale du caractère choisi (sinon 
il ne serait plus possible de revenir au jeu de caractères 
normal)... mais elle est placée dans un caractère inutilisé 
(CHR$(255)). C'est donc toujours ce même caractère qui est 
affiché, chaque fois avec une forme différente, lorsque vous 


affichez un caractère informatique. 
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19 REM Ecriture informatique 

20 REM Frogrammes Basic pour le CFC464 
ZO REM Copyright 1984 DATA RECFER ®& 
FA Rainer lLueers 

40 MODE 1 

50 DIM a(122,8) 

60 REM liberer la zone de caracteres 
64, a redefinir 

70 REM Lecture de l'ecriture infor- 
74. * matique avec La variable a 
80 SYMEOL AFTER 232 


90 KREM Charger provisoirement le code 


LE ES et la forme du caractere dans 
921 la variable a 

100 FOR n=1 TO 7% 

110 KEAD a 


170 FOR m=1 TO 8 

150 READ a 

149 REM Conversion des chaines en 
141 nombres decimaux 

150 at="tx "+at 

160 aa,m)=VAL (a+) 

170 NEXT m 

180 NEXT n 


190 REM Options possibles: 


191 1) entrer un texte en ecriture 

192 informatique où normale 

193 pendant le cours du programme 

195 2) transformer le jeu de 

196 caracteres complet en 

197 ecriture informatique 

200 FRINT'"'Entrez un texte quelconque! Si vous vo 

ulez qu'il apparaisse en ecriture informatique, appuyez 
d'abord sur la touche TAB. Si vous vo 

ulez que tous les caracteres" 

210 FRINT'"'apparaissent maintenant en ecriture informatiq 

ue (y compris le listing), appuyez maintenant sur la touc 


he o";:at-"": INPUT a$ 
220 a#t=UPPER$(a#)21F a$="0" THEN GOTO 510 


270 REM Le jeu de caracteres normal est 
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231 ‘ conserve et les lettres ne sont 


232 ‘ converties en ecriture informati- 
233 ‘ que que une par une a votre 
234 * demande 


240 PRINT 

250 PRINT "Veuillez entrer du texte“ 

260 FRINT 

270 at=INKEY# 

280 IF at-"" THEN GOTO 270 

290 REM Petit editeur de texte: 

291 avec interpretation des touches 

292 <DELETE>=127 

300 IF ASC(at)=9 THEN GOTO 360 

310 IF ASC(a#)=1Z THEN PRINT:GOTO 270 

220 IF ASC(at)=127 THEN at="":1F FOS(#O):1 THEN LOCATE F0S(# 
0) -1,VPOS (HO): PRINT “ "3 :LOCATE POS(#0)-1,VFOS (#0) :GOTO 270 
F30 PRINT af; 

Z240 GOTO 270 

250 END 

3260 at=INFEY# 

370 IF a$="" THEN GOTO 360 

2180 REM Petit editeur de texte: 


281 * avec interpretation des 
282 ‘ touches <ENTER>=17, <TAB>=9 et 
287 ‘ <DELETE=127 


290 IF ASC(a+t)=-9 THEN GOTO 270 

400 1F ASC(a#t)=17 THEN FRINT:GOTO Z60 

410 IF ASC(a#)=127 THEN a$="":1F POS(#O):1 THEN LOCATE PF0OS (# 
O)-1,VPOS(#O)=:FRINT " “3; :LOCATE POS(#O)-1,VPFOS (#0) :GOTD 760 

ELSE GOTO :60 

420 IF ASC(a#)>122 THEN PRINT a#;:GOT0 760 

AO IF a(ASC(at) ,1)=0 AND a (ASC(a#t) ,2)-0 AND a (ASC (at) ,7)=0 

AND a(ASC (at) ,4)=0 AND a(ASC(at) ,5)=0 AND a(ASC(at) ,6)-0 AND 
a (ASC (at) ,7)=0 AND a (ASC (at) ,8)-0 THEN FRINT a#;:GOT0 :60 


440 REM Pour que le jeu de caracteres 


441 normal ne soit pas detruit, 
442 chaque caractere est represente 
447 par transformation de CHR# (255 


450 z=ASC(at) 
460 SYMBOL 255,a(z,1),a(z,2),a(z,:),a(z,4),a(z,5) ,a(z,6) ,a(z 
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17), 


479 
480 
490 
500 
501 
502 
SOZ 
510 


en 
92 


530 


a(z,8) 
PRINT CHR# (255) ; 


GOTO 360 
END 
REM Lecture de l'ecriture 


informatique et modification 
directe du jeu de caracteres 
nor mal 

RESTORE 


FOR n=1 TO 73 

READ m 

FOR o=1 TO 8 

READ pt 

REM Conversion des chaines en 
nombres binaires puis en 
nombres decimaux 

p+="%x "+p# 

b (o) =VAL (p#) 

NEXT o 

SYMBOL m,b(1),b(2) ,b(3),b(4),b4(5) ,b(6) ,b(7) ,b (8) 

NEXT n 

END 

REM ! 

DATA 33 

DATA 00111000 

DATA 00111000 

DATA 00111000 

DATA 00111000 

DATA 00011000 

DATA 00000000 

DATA 00011000 

DATA 00000000 

REM " 

DATA 34 

DATA 01100110 

DATA 01100110 

DATA 01100110 

DATA Q0000000 

DATA 00000000 

DATA 00000000 
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970 

980 

990 

1000 
1019 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


DATA 00000000 


DATA 00000000 


REM # 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


+ 


e) 


01100110 


1 


1111111 


91100110 


01100110 


1 


1111111 


01100110 


00000000 


00000000 


( 


) 


39 

00011000 
00011000 
00011000 
00000000 
00000000 
00000000 


00000000 


40 

00011110 
00011000 
90011000 
00111000 
00111000 
00111000 
00111110 
00000000 


41 

01111000 
00011000 
00011000 
00011100 
00011100 


00011100 
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1:60 
1770 
1380 
1:90 
1400 
1410 
1429 
1470 
1449 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1970 


1540 


1560 
1570 
1580 
1590 


1690 


DATA 01111100 
DATA 00000000 
REM O 

DATA 48 

DATA 01111111 
DATA 01100011 
DATA 01100011 
DATA 01100011 
DATA 01100011 
DATA 01100011 
DATA O1111111 
DATA 60000000 
REM 1 

DATA 49 

DATA 00111000 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA O0111110 
DATA 00111110 
DATA 00111110 
DATA 00000000 
REM ? 

DATA 50 

DATA O1111111 
DATA 00000011 
DATA 00000011 
DATA 01111111 
DATA 01100000 
DATA 01100000 
DATA O1111111 
DATA 00000000 
REM Z 

DATA 51 

DATA 01111110 
DATA 90000110 


DATA 00000110 


DATA 00000111 
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1610 
1620 
1670 
1649 
1650 
1660 
1670 
1680 
1690 
17900 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
18:70 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1970 
1940 
1950 
1960 
1970 
1980 
1990 
2000 


DATA 11111111 
DATA 00900000 
REM 4 

DATA 52 

DATA 01110000 
DATA 01110000 
DATA 01110000 
DATA 01110111 
DATA OG1110111 
DATA 01111111 
DATA 00000111 
DATA 00000000 
REM 5 

DATA 5% 

DATA O1111111 
DATA 91100000 
DATA 01100000 
DATA O1111111 
DATA 00000111 
DATA 00000111 
DATA O1111111 
DATA 00000000 
REM 6 

DATA 54 

DATA 01111100 
DATA 01101100 
DATA 01100000 
DATA O1111111 
DATA 01100011 
DATA 01100011 
DATA O1111111 
DATA 00000000 
REM 7 

DATA 55 

DATA 01111111 
DATA 00000011 
DATA 00000011 
DATA 00011111 
DATA 00011000 
DATA 00011000 
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2010 
2020 
2070 
2040 
2050 
20860 
2070 
2089 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


2210 


DATA 
DATA 


REM 8 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM 9 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM : 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM ; 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


O0011000 


00000000 


56 

00111110 
00110110 
90110110 
01111111 
O1110111 
01110111 
O1111111 


00000000 


97 

O1111111 
01100011 
01100011 
O1111111 
00000111 
00000111 
00000111 


00000000 


58 

00000000 
00011000 
00011000 
00000000 
00011000 
00011000 


00000000 


59 

90011000 
00011000 
00000000 
00011000 


00011000 


En Dies 


2600 
2610 
2620 
2670 
2640 
2650 
26460 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 


DATA 00110000 
DATA 00000000 
KEM = 

DATA 61 

DATA 60000000 
DATA 01111110 
DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 00000000 
DATA 00000000 
DATA 00000000 
REM 7? 

DATA 6% 

DATA O1111111 
DATA 01100011 
DATA 00000011 
DATA 00011111 
DATA 00011100 
DATA 00000000 
DATA 00011100 
DATA 00000000 
REM à 

DATA 64 

DATA O1111111 
DATA 01100011 
DATA 01101111 
DATA 01101111 
DATA O1101111 
DATA 01100000 
DATA O1111111 
DATA 00000000 
REM A 

DATA 65 

DATA OO111111 
DATA 00110011 
DATA 00110011 
DATA 01111111 
DATA 01110011 
DATA 01110011 
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2810 
2820 
29:70 
2840 
2850 
28460 
2870 
2880 
2890 
2900 
2910 
2920 
2950 
2940 
2950 
2960 
2970 
2980 
2990 
3000 

2010 
7020 
FOTO 
7040 
050 
7060 
1070 
7080 
2090 
3100 


3110 


DATA 91110011 
DATA 00000000 
REM EH 

DATA 66 

DATA 01111110 
DATA 01100110 
DATA 01100110 
DATA O1111111 
DATA O1100111 
DATA 01100111 
DATA O1111111 
DATA 00000000 
REM C 

DATA 67 

DATA O1111111 
DATA 01100111 
DATA 01100111 
DATA 01100000 
DATA O1100011 
DATA 01100011 
DATA O1111111 
DATA 00000000 
REM D 

DATA 68 

DATA 01111110 
DATA 01100110 
DATA 01100110 
DATA 01110111 
DATA 01110111 
DATA O1110111 
DATA O1111111 
DATA 00000000 
REM E 

DATA 69 

DATA O1111111 
DATA 01100000 
DATA 01100000 
DATA O1111111 
DATA 01110000 
DATA 01110000 
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DATA O1111111 
DATA 00000000 
REM F 

DATA 70 

DATA O1111111 
DATA 01100000 
DATA 01100000 
DATA 01111111 
DATA 01110000 
DATA 01110000 
DATA 01110000 
DATA G0000000 
REM G 

DATA 71 

DATA O1111111 
DATA 01100011 
DATA 01100000 
DATA 01101111 
DATA 01100111 
DATA 01100111 
DATA O1111111 
DATA 60000000 
REM H 

DATA 7% 

DATA 01110011 
DATA 01110011 
DATA 01110011 
DATA O1111111 
DATA 01110011 
DATA 01110011 
DATA 01110011 
DATA 00000000 
REM I 

DATA 7% 

DATA 00001100 
DATA 00001100 
DATA 00001100 
DATA 00001100 
DATA 00111100 
DATA 00111100 
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610 
3620 
2620 
32640 
2650 
32660 
5670 
3680 
2690 
3700 
7710 
3720 
2770 
2740 
2750 
7760 
2770 
3780 
7790 
3800 
810 
7820 
3830 
3840 
2850 
3860 
2870 
Z7880 
7890 
37900 
3910 
3920 
3970 
3940 
2950 
3960 
32970 
7980 
5990 
4000 


DATA 00111100 
DATA 00000000 
KEM J 

DATA 74 

DATA 00001100 
DATA 00001100 
DATA 00001100 
DATA 00001110 
DATA 00001110 
DATA 01101110 
DATA 01111110 
DATA 00000000 
REM H 

DATA 75 

DATA 01100110 
DATA 01100110 
DATA 01101100 
DATA O1111111 
DATA 01100111 
DATA 01100111 
DATA 01100111 
REM L 

DATA 76 

DATA 00110000 
DATA 00110000 
DATA 00110000 
DATA 01110000 
DATA 01110000 
DATA 01110000 
DATA 01111110 
DATA 00000000 
REM M 

DATA 77 

DATA 01100111 
DATA O1111111 
DATA O1111111 
DATA 01110111 
DATA 01100111 
DATA 0Q1100111 
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4010 
4020 
4050 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4150 
4140 
4150 
4160 
4170 
4180 
4190 

Z00 
4210 
4220 
4270 
4240 
4250 
4260 
4270 
4280 
4290 
4:00 
AZT10 
4320 
4370 


4740 


DATA 
DATA 


REM N 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


01100111 
00000000 


78 

01100111 
01110111 
O1111111 
01101111 
01100111 
01100111 
91100111 
00000000 


REM 0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM P 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


79 

O1111111 
01100011 
01100011 
01100111 
01100111 
01100111 
O1111111 
00000000 


80 

O1111111 
01100011 
91100011 
01111111 
01110000 
01110000 
01110000 
00000000 


REM C! 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


81 

O1111111 
01100011 
01100011 
01100111 
01100111 
01100111 
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4410 
4420 
4470 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4519 
4520 
4570 
4540 

5950 

560 
4570 
4580 
4590 
4600 
4610 
4620 
4670 
4840 
4650 
4669 
4679 
4680 
4690 
4700 
4710 
4720 
4770 
4740 
4750 
4760 
4770 
4789 
4790 
4800 


DATA O1111111 
DATA 00000111 
REM R 

DATA 82 

DATA 01111110 
DATA 01100110 
DATA 01100110 
DATA 01111111 
DATA O1110111 
DATA O1110111 
DATA 01110111 
DATA 00000000 
REM S 

DATA 8% 

DATA O1111111 
DATA 01100000 
DATA O1111111 
DATA 00000011 
DATA 01110011 
DATA 01110011 
DATA 01111111 
DATA 00000000 
REM T 

DATA 84 

DATA O1111111 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 90011100 
DATA 00000000 
REM U 

DATA 85 

DATA O1100111 
DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 01100111 
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4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
9050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 


DATA O1111111 
DATA 00000000 
REM V 

DATA 86 

DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 01101111 
DATA 00111110 
DATA 00011100 
DATA 00000000 
REM W 

DATA 87 

DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA O1101111 
DATA O1111111 
DATA O1111111 
DATA 01100111 
DATA 00000000 
REM X 

DATA 88 

DATA 01110011 
DATA 01110011 
DATA 01110011 
DATA 00111110 
DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 00000000 
REM Y 

DATA 89 

DATA 01100111 
DATA 01100111 
DATA 01100111 
DATA 01111111 
DATA 00011100 
DATA 00011100 
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DATA 00011100 
DATA 00000000 
REM Z 

DATA 90 

DATA O1111111 
DATA 01100110 
DATA 01101100 
DATA 00011000 
DATA 00110111 
DATA 01100111 
DATA O1111111 
DATA 00000000 
REM a 

DATA 97 

DATA 00000000 
DATA 00000000 
DATA 00111110 
DATA 00000110 
DATA 01111110 
DATA 01100110 
DATA 01111110 
DATA 00000000 
REM b 

DATA 98 

DATA 00000000 
DATA 01110000 
DATA 01110000 
DATA 01111110 
DATA 01110110 
DATA 01110110 
DATA 01111110 
DATA 00000000 
REM c 

DATA 99 

DATA 00000000 
DATA 00000000 
DATA 01111100 
DATA 01110000 
DATA 01110000 
DATA 01110000 
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5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
95850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
9930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 


DATA 01111100 
DATA 00000000 
REM d 

DATA 100 

DATA 00000000 
DATA 00000110 
DATA 00000110 
DATA 01111110 
DATA 01101110 
DATA 01101110 
DATA 01111110 
DATA 00000000 
REM e 

DATA 101 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01100110 
DATA 01111110 
DATA 01100000 
DATA 01111110 
DATA 00000000 
REM + 

DATA 102 

DATA 00000000 
DATA 00011110 
DATA 00011000 
DATA 00111110 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00000000 
REM g 

DATA 105 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01101110 
DATA 01101110 
DATA 01111110 
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6010 
8020 
6030 
6040 


6060 
6070 
6080 
6090 
6100 
6110 
6120 
61:20 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 


6220 


6260 

>270 
6280 
6290 
6300 
6:10 
6320 
6330 
6:40 


DATA Q0001110 
DATA 61111110 
REM h 

DATA 104 

DATA 00000000 
DATA 01110000 
DATA 01110000 
DATA 01111100 
DATA 01110110 
DATA 01110110 
DATA 01110110 
DATA 00000000 
REM i 

DATA 105 

DATA 00000000 
DATA 00011000 
DATA 00000000 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 00111100 
DATA 00000000 
REM J 

DATA 106 

DATA 00000000 
DATA 00001110 
DATA 00000000 
DATA 00001110 
DATA 00001110 
DATA 00001110 
DATA 00001110 
DATA 00111110 
REM k 

DATA 107 

DATA 00000000 
DATA 01100000 
DATA 01100000 
DATA 01101100 
DATA 01111000 
DATA 01101100 
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6640 
6650 
6660 
6670 
6680 
68690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 


DATA 01100110 
DATA 00000000 
REM 1 

DATA 108 

DATA 00000000 
DATA 00111100 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 00011100 
DATA 00000000 
REM m 

DATA 109 

DATA 00000000 
DATA 00000000 
DATA 01100111 
DATA O1111111 
DATA O1111111 
DATA 01101011 
DATA 01100011 
DATA 00000000 
REM n 

DATA 110 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01111110 
DATA 01100110 
DATA 01100110 
DATA 01100110 
DATA 00000000 
REM o 

DATA 111 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01101110 
DATA 01101110 
DATA 01101110 
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6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 


DATA 01111110 
DATA 00000000 
REM p 

DATA 112 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01110110 
DATA 01110110 
DATA 01111110 
DATA 01110000 
DATA 01110000 
REM q 

DATA 113 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01101110 
DATA 01101110 
DATA 01111110 
DATA 00001110 
DATA 00001110 
REM r 

DATA 114 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01110110 
DATA 01110000 
DATA 01110000 
DATA 01110000 
DATA 00000000 
REM s 

DATA 115 

DATA 00000000 
DATA 00000000 
DATA 01111110 
DATA 01100000 
DATA 01111110 
DATA 00001110 


= 4 


DATA 01111110 
DATA 00000000 
REM t 

DATA 116 

DATA 00000000 
DATA 00111000 
DATA 01111110 
DATA 00111000 
DATA 00111000 
DATA 00111000 
DATA 00111110 
DATA 00000000 
REM u 

DATA 117 

DATA 00000000 
DATA 00000000 
DATA 01101110 
DATA 01101110 
DATA 01101110 
DATA 01101110 
DATA 01111110 
DATA 00000000 
REM v 

DATA 118 

DATA 00000000 
DATA 00000000 
DATA 01101110 
DATA 01101110 
DATA 01101110 
DATA 00111100 
DATA 00011000 
DATA 00000000 
REM w 

DATA 119 

DATA 00000000 
DATA 00000000 
DATA 01100011 
DATA 01101011 
DATA O1111111 
DATA O1111111 
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7610 DATA 00110110 
7620 DATA 00000000 
7630 REM x 

7640 DATA 120 

7650 DATA 00000000 
7660 DATA 00000000 
7670 DATA 01100110 
7680 DATA 00111100 
7690 DATA 00011000 
7700 DATA 00111100 
7710 DATA 01100110 
7720 DATA 00000000 
7730 REM y 

7740 DATA 121 

7750 DATA 60000000 
7760 DATA 00000000 
7770 DATA 01101110 
7780 DATA 01101110 
7790 DATA 01101110 
7800 DATA 01111110 
7810 DATA 00001110 
7820 DATA 01111110 
7830 REM z 

7840 DATA 122 

7850 DATA 00000000 
7860 DATA 00000000 
7870 DATA 01111110 
7880 DATA 00001100 
7890 DATA 00011000 
7900 DATA 00110000 
7910 DATA 01111110 
7920 DATA 00000000 
7930 a$=INKEY#:1IF a$="" THEN GOTO 7930 
7940 PRINT ASC(at):GOTO 793 
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Messages d'erreur 





On a parfois l'impression d'être victime d'une malédiction quand, 
après avoir longuement travaillé au développement d'un programme, 
on l'entre dans l'ordinateur et qu'on s'aperçoit que malgré des 


efforts répétés il se produit toujours des erreurs. 


Comme le CPC n'a pas été conçu en France, les messages d'erreur 
sont naturellement affichés en anglais et ils sont de plus 
relativement brefs pour ne pas consommer trop de place en mémoire 


(syntax error, type mismatch...). 


Les programmeurs consciencieux apprennent tous avec le temps à 
connaître par coeur la signification des différents messages 
d'erreur, mais c'est le plus souvent un long chemin semé 
d'embûches et de petites fautes d'interprétation qui ralentissent 
le développement des programmes. Comme le CPC dispose de 
l'instruction ON ERROR GOTO, nous pouvons le forcer à réagir à une 
erreur comme nous le souhaitons et il peut même corriger certaines 
erreurs de lui-même: si par exemple le CPC charge des données à 
partir de la cassette et qu'après avoir lu toutes les données d'un 
fichier vous tentez de lire d'autres données, il va normalement 
afficher le message d'erreur: ‘'OF' met (= rencontré la fin du 

fichier). Il est alors très simple de prévoir dans une routine de 
traitement des erreurs que le CPC devra fermer le fichier ouvert 
quand se produira cette erreur. Le programme pourra ensuite suivre 


son cours normal. 


Notre programme de messages d'erreur ne supprime toutefois pas les 
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erreurs qui se produisent (ceci peut mener en effet à des 
résultats inattendus, si la suppression des erreurs n'est pas 
maniée avec précaution) mais il vous aide très efficacement dans 
la recherche des erreurs. Le mieux est que vous essayiez vous- 
mème! Entrez en ligne 20 uniquement NEXT n. Si vous lancez le 
programme, vous voyez que l'erreur est immédiatement détectée et 
indiquée et qu'une stratégie de correction du programme vous est 


proposée. 


Comment procéder maintenant avec les programmes que vous avez déjà 
écrits? Il faut d'abord renuméroter les lignes de vos programmes 
avec l'instruction RENUM pour que les deux programmes ne se 
chevauchent pas (les numéros de lignes de vos programmes doivent 
donc être compris entre 10 et 10000). Utilisez maintenant 
l'instruction 'MERGE' (reportez-vous aux explications du manuel) 
pour fusionner les deux programmes entre eux. Vous pouvez alors 
lancer votre programme et le corriger à l'aide des messages 
d'erreur et des propositions de rectification qui vous sont 


faites. 


Le CPC dispose d'autres instructions que ON ERROR GOTO qui peuvent 
vous aider dans le domaine du dépistage des erreurs: 
l'interrogation de la variable ‘ERL' vous fournit en effet la 
ligne où s'est produite l'erreur et la variable 'ERR' vous fournit 
le numéro du message d'erreur. Vous pouvez enfin produire des 


erreurs avec l'instruction ERROR. 
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2 PRINT 

10 REM Messages d'erreur 

11 REM Programmes Basic pour le CPC464 
12 REM Copyright 1984 DATA BECKER & 

15 Rainer Lueers 

14 INK O,1:INK 1,24:INK 3,1,24 

15 ON ERROR GOTO 10000 


20 REM Veuillez taper votre programme 


21 entre les lignes 20 et 9999 
22 ‘ ou bien utilisez MERGE 

100 STOP 

9999 STOF 

10000 REM Debut de la routine de 
10001 traitement detaille des 
10002 erreurs 


10010 MODE 1:PEN 1 

10020 PRINT"Erreur en ligne"ERL"!'" 

10050 GOSUB 11420 

10040 REM Unexpected NEXT 

10050 IF ERR=1 THEN PRINT "En ligne"ERL'"figure l'instruction 
“:PEN 3 ELSE GOTO 10100 

10060 PRINT “"‘NEXT'";:PEN 1:PRINT “sans qu'une instruction 


FOR" correspondante ne figure auparavant dansle pr 
ogr amme. 
10070 PRINT"II1 se peut egalement que vous ayez utilise 


avec NEXT le nom d'une variable correspondant a une autre bo 
ucle." 

10080 END 

10090 REM Syntax Error 

10100 IF ERR=2 THEN PRINT "La construction de la ligne"ERL E 
LSE GOTO 10150 

10110 PRINT "est incorrecte ou un mot a ete mal ecrit. 
On parle de ":PEN S:PRINT "SYNTAX ERROR";:PEN 1:PRINT ". 
10120 PRINT 

10130 END 

10140 REM Unexpected RETURN 

10150 IF ERR=S THEN PRINT "En ligne"ERL'"figure l'instruction 
“:PEN 3:PRINT "RETURN"; :PEN 1:PRINT ", sans qu'une instructi 
on "; ELSE GOTO 10190 
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10160 PRINT “‘GOSUB'":PRINT"n'ait auparavant appele un 
sous-programme correspondant." 

10170 END 

10180 REM DATA exhausted 

10190 IF ERR=4 THEN PRINT "Vous voulez faire lire encore d'a 

utres":PEN 3:PRINT"'DATAS";:PEN 1:ELSE GOTO 10230 

10200 FRINT'"Alors que toutes les donnees en DATAS ont deja 
ete lues. 11 se peut egalement que vous ayez oublie d'utili 
ser l'ins- truction RESTORE avant de faire lire a nouvea 
u les donnees en DATAS." 

10210 END 

10220 REM Improper argument 

10270 IF ERR=S THEN PRINT "Un parametre ou un ";:PEN 3:PRINT 
“argument";:FPEN 1:PRINT " a ete" ELSE GOTO 10270 

10240 PRINT'entre de maniere incorrecte. En effet, vous ne 
pouvez pas utiliser n'importent quelles valeurs avec les ins 
tructions SOUND ou ENV par exemple. Consultez votre ma 
nuel!" 

10250 END 

10260 REM Overflow 

10270 IF ERR=6 THEN PRINT "Votre ordinateur detecte un ";3:PE 
N Z:PRINT "OVERFLOW'":PEN 1:FRINT'"c'est-a-dire un depassement 
-" ELSE GOTO 10720 

10280 PRINT'"'En effet, vous avez essaye en ligne"ER 


L;:PRINT "de representer un":PFRINT'"nombre qui depasse les po 


ssibilites de representation du CPC464 (nombres > 1.7E- 
38) ." 
10290 PRINT "Vous avez peut-etre aussi essaye de convert 


ir un nombre en un autre type de nombres, sans respecter la 

valeur limite." 

10300 END 

10310 REM Memory full 

10520 IF ERR=7 THEN PRINT "Memoire ou en anglais ";:PEN 3:PR 
INT "MEMORY"; :PEN 1:PRINT " pleine." ELSE GOTO 10:80 

10330 PRINT"II1 faut le faire! Vous avez ecrit un progr amm 
e Basic tellement long qu'il depasse la capacite de memoi 
re de l'ordinateur. Essayez de trouver ou vous"; 

10340 PRINT"pourriez raccourcir votre programme, par exem 
ple en supprimant des lignes de REM. Vous pouvez d'autre par 


t arriver tres rapidement a une surcharge de la memoire 
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si vous dimensionnez vos variables ou tableaux trop 1 

argement ou "; 

10550 PRINT"si vous imbriquez trop de boucles FOR...NEXT ou 

trop de sous-programmes. " 

10360 END 

10370 REM Line does not exist 

10580 IF ERR=8 THEN PRINT "Vous voulez sauter a une ligne de 
programme qui n'existe pas, en anglais:";:PEN 3:PRINT 

"LINE DOES NOT EXIST";:PEN 1:PRINT "“." ELSE GOTO 10420 


10:90 FRINT"Vous avez peut-etre mis la charrue avantles boeu 


fs ou bien vous avez deja renumerote le programme sans 
tenir compte de ce meme message d'erreur." 
10400 END 


10410 REM Subscript out of range 

10420 IF ERR=9 THEN PRINT "Le "“;:PEN 3:PRINT "SUBSCRIPT'"';:PE 

N 1:PRINT "(la grandeur de la dimension choisie d'une var 
1able) est excessive "“; ELSE GOTO 10470 

10450 PFRINT'"en ligne":PRINT ERL:PRINT"Vous avez oublie de di 

mensionner une variable ou vous ne l'avez pas dimen- si 

onnee assez grande." 

19450 END 

10460 REM Array already dimensioned 

10470 IF ERR=10 THEN PRINT "Le dimensionnement avec “;:PEN 3 
: PRINT "DIM"; :PEN 1:PRINT "a deja ete fait quelque part dans 
le programme."; ELSE GOTO 10510 

10480 PRINT"Vous ne pouvez dimensionner a nouveau en ligne 
"sERL; "sans avoir auparavant":PRINT'"'utilise l'instruction CL 

EAR." 

10490 END 

10500 REM Division by zero 

10510 IF ERR=11 THEN PRINT'"'La "3:PEN 3:PRINT "DIVISION" ;:PEN 


1:PRINT " par O n'est pas permise.":PRINT "Cherchez donc co 


mment vous avez pu en provoquer une (Verifiez egalement le 
s variables dans la ligne fautive)." ELSE GOTO 10540 
19520 END 


10570 REM Invalid direct command 

10540 IF ER=12 THEN FRINT "Vous ne pouvez entrer cette instr 
uction directement: ce n'est pas une ";:PEN 3:PRINT "direct" 
:PRINT "command"; :PEN 1:PFRINT "." ELSE GOTO 10580 

10550 PRINT "(par exemple ‘AF=INKEY#'" pour interrogerle clav 
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ier). Integrez cette instruction dans un programme et lancez 
—-le avec RUN." 

10560 END 

10570 REM Type mismatch 

10580 IF ERR=13 THEN PRINT "Vous avez choisi un mauvais type 
de variable:";:PRINT "C";3:PEN 3:PRINT "TYPE MISMATCH";: 
PEN 1:PRINT ").":PRINT "Les nombres ne peuvent etre lus qu'a 

vec des variables numeriques (Variables A,B,C...)"; ELSE 
GOTO 10630 

10590 PRINT "Si vous voulez lire (avec READ ou INFUT)une var 


iable numerique OÙ une chaine de caracteres, vous devez empl 


oyer une variable alphanumerique (A$,R#,C#...)."; 
10600 PRINT"Si vous faites lire un nombre par une variable 
alphanumerique, vous pouvez convertir a nouveau la varia 


ble-chaine en nombre, avec l'instruction VAL(...)." 

10610 END 

10620 REM String space full 

10630 IF ERR=14 THEN PRINT"'Il1 n'°'y a plus de place pour de no 
uvelleschaines de caracteres (";:PEN Z:PRINT "STRINGS";:PEN 
1:PRINT ").":PRINT'"'Pour continuer d'entrer des chaines, v 


ous pouvez:" ELSE GOTO 10470 


10640 PRINT:PRINT"1) Raccourcir le programme Basic 2) 
Sauvegarder les chaines existantes sur cassette et eff 
acer avec CLEAR la zone-memoire des chaines.";:PRINT" Vo 
us pourrez ensuite entrer de nouvelles variables." 

10650 END 


10660 REM String too long 

10670 IF ERR=1S THEN PRINT "La chaine de caracteres ("::PEN 
3: PRINT "STRING"; :PEN 1:PRINT ")'":PRINT'utilisee en ligne";E 

RL;"a plus de" ELSE GOTO 10710 

10680 PRINT "255 caracteres, ce qui n'est pas permis'Faites 

donc attention lorsque vous agrandissez des chaines ave 
c + où avec les fonctions de manipulation de chainestelles 

que INSTR." 

10690 END 

10700 REM String expression too complex 

10710 IF ERR=16 THEN PRINT "La chaine de caracteres en ligne 
"3:ERL:PRINT ‘est ";:FEN 3:PRINT "trop complexe";:PEN 1:PRIN 

T ".":PFRINT'Ne compliquez pas artificiellement le calcul d 


‘une chaine en utilisant trop" ELSE GOTO 10750 
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10720 PRINT “d'instructions de manipulation de chaines 
telles que ‘LEFT$', ‘RIGHT#', ‘MID$'ou ‘INSTR’‘. 

10730 END 

10740 REM Cannot CONTinue 

10750 IF ER=17 THEN:PEN S:PRINT "CONT'"';:PEN 1:PRINT “inue es 
t une fonction interessante" ELSE GOTO 10800 

10760 PRINT “puisqu'elle permet presque toujours une reprise 
du programme apres ‘END’, ‘“STOP'ou apres une interruption d 
u programme par l'utilisation de la touche <ESC>, mais À 
TTENTION'" 

10770 PRINT"Dans le cas present, il s'est passe tropd'evenem 
ents pour que l'ordinateur puisse encore se souvenir a 
partir de quelle ligne il doit reprendre l'execut 
ion du programme." 

10780 END 

10790 REM Unknown user function 

10800 IF ERR=18 THEN PEN 3:PRINT "FN": :PEN 1:PRINT " est cer 
tainement une instruction" ELSE GOTO 10840 


10810 PRINT"pratique pour calculer des fonctions mathemat 
iques qui ont ete auparavant definies dans le programme a 
vec DEF FN, mais en l'occurence, vous avez appele avec FN 


une fonction en ligne";ERL; 

10820 PRINT"qui n'avait pas encore ete definie.":PRINT:PRINT 
“Nous vous conseillons donc de toujours regrouper les defin 
itions en debut de" 

10850 PRINT'"programme, dans ce qu'on appelle la partie-d 
eclaration du programme. 

10840 END 

10850 REM RESUME missing 

10860 IF ERR=19 THEN PEN 3:PRINT "RESUME";:PEN 1:PRINT “ doi 
t etre utilise apres l'ins-" ELSE GOTO 10910 

10870 PRINT'"truction ON ERROR GOTO pour que le progr amm 
e puisse reprendre son cours au bon endroit:":PRINT"Si vous 
entrez simplement RESUME, l'execution du programme rep 


rendra a" 


10880 PRINT"partir de l'endroit ou l'erreur est apparue. 
":PRINT"Si vous entrez RESUME plus un numero de ligne, l'exe 
cution du programme se poursuivra a partir de cette lig 
ne." 

10890 END 


— 93 — 


10900 REM Unexpected RESUME 
10910 IF ERR=20 THEN PRINT "L'’instruction ";:PEN S:PRINT "RE 
SUME":FEN 1:PRINT “est apparue en ligne"ERL ELSE GOTO 10960 


10920 PRINT"sans qu'une routine de traitement des erreurs 

n'ait ete auparavant appelee dans le programme avec ON ER 
ROR GOTO. 11 se peut que vous aÿez simplement oublie d 
e terminer le programme avec "END'."; 


10930 PRINT" C'est pourquoi le programme a":PRINT"continue e 
t execute la routine de traitement des erreurs." 

10940 END 

10950 REM Direct command 

10960 IF ERR=21 THEN PRINT "Lors du chargement d'un programm 

e sur cassette, une instruction":PRINT"(";:PEN 3:PRINT "DI 

RECT COMMAND";:PFEN 1:PRINT "),":PRINT'"a ete trouvee, qui app 

arait dans le" ELSE GOTO 11000 

10970 PRINT'"programme sans numero de ligne. Ceci n'est pa 

s permis." 

10980 END 

10990 REM Operand missing 

11000 IF ERR=22 THEN PRINT "Certaines instructions BASIC ne 

peuvent etre employees sans etre suivies d'un minimum d'"; 

: PEN S:PFRINT "OPERANDES";:PEN 1:PRINT ".":PRINT"Par exemple 
l'instruction SOUND doit" ELSE GOTO 11070 

11010 PRINT'etre suivie au moins de l'indication du numero d 

e canal et de la frequence: SOUND 1,100 par exemple, mai 

s pas SOUND." 

11020 REM Line too long 

11070 IF ERR=23 THEN PRINT "Ligne de programme trop longue": 

FRINT"(";:PEN 3:PRINT "too long";:PEN 1:PRINT ")." ELSE GOTO 
11070 


11040 FRINT'"Une ligne de programme ne peut avoir plus de 
255 caracteres. Vous pouvez corriger cette erreur par ex 
emple en scindant cette ligne en plusieurs petites 
lignes." 

11050 END 


11060 REM EOF met 

11070 IF ERR=24 THEN PEN 3:PRINT "EOF'"3;:PEN 1:PRINT " signif 
ie END OF FILE." ELSE GOTO 11150 

11080 PRINT "Vous avez essaÿe par erreur en ligne":PRINT ERL 


s'"de charger plus de donnees":PRINT'"d'un fichier qu'il n'en 
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contient. Nous pouvons vous donner les conseils suiv 


ants pour eviter cette erreur:" 


11090 FRINT"Avant la lecture des donnees sur cassette 
, utilisez le test: IF EOF THEN CLOSE IN:GOTO .. 
11100 PRINT'"Lorsque EOF sera alors rencontre par l'ordina 


teur, le fichier sera ferme et le programme se poursuivra e 
n un autre endroit." 

11110 PRINT'"Autre possibilite: placer le nombre d'elemen 
ts stockes dans un fichier dans le fichier lui-meme. Lors du 
chargement ,faites d'abord lire ce nombre, et" 

11120 PRINT'utilisez-le dans une boucle FOR ... NEXT." 

11130 END 

11140 REM File type error 

11150 IF ERR=25 THEN PRINT "Le type du fichier ( 
NT "FILE TYPE"; :PEN 1:PRINT ")'":PRINT'est incorrect." ELSE G 

OTOD 11200 


:PEN 3:PRI 





11160 PRINT"Vous ne pouvez lire des donnees avec l'instru 
ction OFENIN que sur des fichiers ASCII. Far contre, 
LOAD, RUN ouMERGE ne permettent de charger que des programm 


es qui ont ete sauvegardes directement avec SAVE." 
11170 PRINT"Ces programmes n'ont pas ete en effet sauvegar 
des lettre apres lettre, mais mot BASIC (token) apres mot 


BASIC. Ils sont donc en code abrege." 

11180 END 

11190 REM NEXT missing 

11200 IF ERR=26 THEN PRINT “Une boucle ‘FOR..."3;3:PEN 3:FRINT 
"NEXT"';:PEN 1:PRINT "‘ se compose de" ELSE GOTO 11250 

11210 PRINT "‘’FOR' et NEXT. Pour la boucle en ligne";ERL;"," 
11220 PRINT "il manque visiblement un NEXT'! Verifie 

z et ajoutez-le où il convient." 

11230 END 

11240 REM File already open 

11250 IF ERR=27 THEN PRINT "Un fichier qui a deja ete ouvert 
avec l'instruction ";:PEN 3:PRINT "OPEN":PEN 1 ELSE GOTO 

11300 

11260 PRINT "ne doit pas etre a nouveau ouvert en lign 

e";ERL; "avec 1'‘instruction":PRINT'"'OPENIN"; 

11270 PRINT " où OPENOUT.":PRINT"Soit vous avez oublie que c 


e fichier a deja ete ouvert dans une autre partie duprogram 
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me, soit vous avez relance le programme avant d'avoir fer 
me les" 

11280 PRINT"fichiers (avec CLOSEIN, CLOSEOUT) qui avaient 
ete ouverts par le programme (avec OPENIN, OPENOUT)." 
11290 REM Unknown command 

11300 IF ERR=?28 THEN PRINT "Une instruction en ligne":ERL EL 
SE GOTO 113350 

11710 PRINT "est n'est pas connue de 1 ‘ordinateur dans ce 
tte fonction (";:PEN Z:PRINT "UNKNOWN COMMAND"; : PEN 1: PRINT 
ju 

11320 REM WEND missing 

11330 IF ERR=29 THEN PRINT "WHILE..."3;:PEN 3:PRINT "WEND";:P 
EN 1:PRINT “" constitue certainement" ELSE GOTO 11380 

11:40 PRINT “un bon moyen de realiser des programmes structu 
res, mais vous avez oublie jusqu'en ligne"; ERL; "de fer 
mer dans"; :PRINT'"votre programme une boucle" 

11250 PRINT "WHILE...WEND avec "3;3:PEN 3:PRINT "WEND'";:PEN 1: 
PRINT "." 

11360 END 

11370 REM Unexpected WEND 

11380 IF ERR=3O THEN PRINT "WHILE..."3;:PEN 3S:PRINT "WEND";::P 
EN 1:PRINT " constitue certainement" ELSE END 

11:90 PRINT “un bon moyen de realiser des programmes structu 
res, mais vous avez oublie jusqu'en ligne";ERL;"d'ouvr 
ir dans"; :PRINT'"votre programme une boucle" 

11400 PRINT "WHILE...WEND avec ";:PEN 3S:PRINT "WHILE";:PEN 1 
PRINT "." 

11410 END 

11420 PEN 3 

11430 REM Les messages d'erreur anglais 

11440 IF ERR=1 THEN PRINT “"Unexpected NEXT'"; 

11450 IF ERR=2 THEN PRINT "Syntax Error"; 

11460 IF ERR=3 THEN PRINT "Unexpected RETURN"; 

11470 IF ERR=4 THEN PRINT "DATA exhausted"; 

11480 IF ERR=5 THEN PRINT “Improper argument"; 

11490 IF ERR=6 THEN PRINT “"Overflow"; 

11500 IF ERR=7 THEN PRINT "Memory full"; 

11510 IF ERR=8 THEN PRINT "Line does not exist"; 

11520 IF ERR=9 THEN PRINT "Subscript out of range"; 

11530 IF ERR=10 THEN PRINT "Array already dimensioned"; 
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11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 


IF 
IF 
IF 
1F 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
1F 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


ERR=11 
ERR=12 
ERR=1SZ 
ERR=14 
ERR=15 
ERR=16 
ERR=17 
ERR=18 
ERR=19 
ERR=20 
ERR=?1 
ERR=?22 
ERR=23 
ERR=24 
ERR=?25 
ERR=26 
ERR=27 
ERR=28 
ERR=29 
ERR=3O 


PEN 1 
PRINT: PRINT 
RETURN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


PRINT "Division by zero": 
PRINT "Invalid direct command" 
PRINT "Type mismatch"; 

PRINT "String space full"; 
PRINT "String too long"; 

PRINT "String expression too complex"; 
PRINT "Cannot CONTinue"; 

PRINT “Unknown user function“; 
PRINT "RESUME missing"; 

PRINT "Unexpected RESUME"; 
PRINT "Direct command; 

PRINT "Operand missing"; 

PRINT "Line too long": 

PRINT "EOF met"; 

PRINT "File type error"; 

PRINT "NEXT missing"; 

PRINT "File already open"; 
PRINT "Unknown command; 

PRINT "WEND missing"; 

PRINT "Unexpected WEND"; 
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Références des variables 


Nous avons déjà étudié dans le programme Mémoire À comment les 
différents numéros de ligne et la longueur de chaque ligne sont 
stockées en mémoire (les adresses 368 et 369 contiennent la 
longueur de la première ligne, les adresses 370 et 371 contiennent 
le numéro de la première ligne, etc...). Le programme Mémoire À 
nous a en outre fourni un moyen simple de faire rechercher une 
expression d'un maximum de 6 lettres dans la mémoire de 
l'ordinateur. L'utilité du programme Mémoire H était donc d'une 
part de nous permettre de connaître un peu mieux la mémoire de 
l'ordinateur et d'autre part de pouvoir rechercher une séquence 


alphanumérique dans toute la mémoire. 


Le programme ‘références des variables' part du même principe mais 
va encore beaucoup plus loin: il ne recherche pas seulement des 
séquences de caractères ou de lettres dans la mémoire, il ordonne 


de plus les expressions ainsi trouvées. 


Comme le CPC permet de distinguer des noms de variables comportant 
jusqu'à AO caractères, il faut bien sûr faire rechercher en 
mémoire le nom de la variable tout entier. Notre tâche (et bien 
sûr avant tout celle du CPC) est considérablement facilitée par le 
fait que celui-ci stocke les premiers caractères d'un nom de 
variable normalement mais que le dernier caractère du nom d'une 
variable reçoit un code spécial correspondant au code ASCII de ce 
caractère + 128. Si le nom de la variable ne se compose que d'un 
seul caractère, c'est bien sûr le premier mais aussi dernier 


caractère du nom de cette variable qui reçoit ce code spécial 


— 98 — 


(code ASCII + 128). Le stockage des variables et le listage des 
références des variables par notre programme tiennent également 
compte de l'existence de différents types de variables 


(alphanumériques, nombres entiers, ...). 


Voyons maintenant quelles sont les possibilités exactes de notre 


programme de références des variables: 


1) Recherche des variables du programme (le programme ‘références 
des variables commençant en ligne 10 000, la dernière ligne de 


votre programme doit être au plus 9999). 


2) Si le nom de variable trouvé figure au premier rang dans 
l'ordre alphabétique des variables de votre programme, le 
programme recherche dans la mémoire programme dans quelles lignes 
de votre programme cette variable apparaît. C'est ainsi 
qu'apparaît une liste des références de vos variables qui peut 
vous être d'un très grand secours dans votre travail de débuggage 


(recherche des erreurs) de vos programmes BASIC. 


Vous pouvez essayer notre programme immédiatement en entrant en 


lignes 10 à 50 les affectations de variables suivantes: 


10 a$="CPCH6" 

20 b$="Ordinateur" 
30 CPC-464 

4O DATABECKER!=464 


50 PROGRAMMESBASIC%=4 64 


Vous pouvez lancer maintenant la routine de références des 
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variables avec RUN 10 000 et vous verrez peu de temps après sur 
l'écran non seulement la liste des variables utilisées mais en 


outre les numéros de ligne où ces variables apparaissent. 


Une fois que la totalité du programme a été examinée, le CPC 
indique combien d'octets votre programme occupe en mémoire, sans 
tenir compte bien sûr du programme de références des variables 
qu'il vaut mieux que vous supprimiez lorsque votre programme sera 
complètement au point. Il vous suffira pour celà d'utiliser 


l'instruction: DELETE 10000-. 


Un dernier conseil: 


Plus votre programme est long et plus votre CPC mettra de temps à 
rechercher toutes les variables que vous avez utilisées. Nous vous 


recommandons donc de faire preuve d'un peu de patience. 


Les noms des variables doivent en effet être tout d'abord triés 
(non seulement d'après l'ordre alphabétique mais aussi en 
distinguant les majuscules et les minuscules), puis le numéro de 
la ligne ou des lignes où elles apparaissent doit ou doivent être 
recherchés et il faut enfin que l'ordinateur affiche toutes ces 


données à l'écran. 


— 100 — 


10000 REM Liste et references des 

10001 variables 

10010 REM Programmes Basic pour CPC464 

10020 REM Copyright 1984 DATA BECKER & 

10021 Rainer Lueers 

10030 CLEAR:DIM a$(1000) 

10040 REM Determiner la plus petite et 

10041 la plus grande variable 

10042 ‘ possibles 

10050 mar que$=STRING# (40 ,"z"):marquel$=STRING#$(40,"1") 
10060 MODE 1 

10070 z=568: a$="###":DE="HHHHNH" 

10080 REM Calcul de la longueur et du 

10081 numero de la ligne 

10090 a=PEEK (2) +256%PEEK (z+1) :b=PEEK (z+2) +256#PEEK (z+3) 
10100 REM Le calcul ne concerne que la 

10101 partie du programme figurant 

10102 avant la ligne 10000 

10110 IF b<>10000 THEN GOTO 10150 

10120 GOSUB 10360 

10130 PRINT:PRINT "Taille du programme: “USING b#;z-768;:P 
RINT " Octets":PRINT:END 

10140 REM Debut de la recherche des 

10141 varables en memoire 

10150 FOR z1=2+4 TO z+a:1F (FEEK(Z1)=13 OR (PEEK(Z1)>1 AND P 
EEK(z21)<5)) AND PEEK(Z1+2)=0 THEN GOSUB 10200 

10160 IF z+4<>z+a THEN NEXT z1 

10170 z=z+a 

10180 GOTO 10090 

10190 REM Quel type de variables? 


10191 13 = nombre normal 

10192 Z = chaine de caracteres 
10193 2 = nombre entier avec ‘2° 
10194 4 = nombre normal avec ‘!° 


10200 IF PEEK(Z1)=13 THEN zz=13 
10210 IF PEEK(Z1)=3 THEN zz=5 

10220 IF FEEK(Z1)=2 THEN zz=2 
10250 IF FEEK(Z1)=4 THEN zz=4 
10240 REM Examiner longueur du nom 


10241 de la variable 
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10250 IF PEEK(z1+3)>128 THEN zz$=zz$+CHR#((PEEK (z1+3)-128)) 
ELSE zz$=2zz#$+CHR$ (PEEK(z1+3)):z1=z1+1:GOT0 10250 
10260 REM Quel type de variables? 


10261 ‘ 13 = nombre normal 
10262 ‘ 3 = chaine de caracteres 
10267 ‘ 2 = nombre entier avec ‘2° 


10264 ‘ 4 = nombre normal avec ‘!° 

10270 IF zz=13 THEN zz#$=zz# 

10280 IF zz=3 THEN zz#$=2z#$+"$" 

10290 IF zz=2 THEN z2z$=2z#$+"%" 

10300 IF zz=4 THEN zz$=2z#$+"!" 

10310 REM Les variables sont rangees 

10511 dans 1 ‘ordre alphabetique 

10312 ‘ avant d'etre listees 

10320 IF zz$<marque$ AND zz$>marquel$ THEN marque$=1z$ 

10330 IF flag=1 AND zz$t=at (compteur) THEN PRINT b; 

10340 zz#$="":RETURN 

10750 REM Ranger le nom de la variable 

10351 et le numero de la ligne ou 

10352 ‘ il apparait 

10360 IF flag=1 THEN flag=0:PRINT:GOTO 10070 ELSE flag=1:1F 
mar que#+=STRING#(40,"z") THEN RETURN ELSE PRINT marque; : comp 
teur =compteur+1:a$ (compteur )=mar quef: mar que1#=mar que$: mar que 
+=STRING#(40,"z") 

10370 GOTO 10070 
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Calendrier 


Tous ceux qui ont l'habitude de travailler avec des ordinateurs 
rencontrent fréquemment des programmes de calendrier sous telle ou 
telle forme. Il s'agit aussi bien de programmes de "calendrier" 
isolés comme dans le cas présent ou bien de programmes plus 
important comportant un sous-programme de calendrier (par exemple 
les programmes d'agenda dont vous trouverez également un listing 


dans le présent ouvrage). 


I1 s'agit de toute façon toujours d'additionner les jours, les 
mois et les années pour calculer comme résultat final quel jour de 


la semaine sera la date voulue. 


Le programme que nous vous proposons comprend trois parties qui 
résultent de l'entrée avec INPUT de l'année, du mois et du jour 


calendaire voulus. 


L'année entrée doit être comprise entre 1901 et 2000 et les années 


bissextiles sont calculées automatiquement (ligne 140). 


Pour le mois, le nom du mois et le nombre de jours sont déterminés 
en fonction du numéro de mois entré. Si l'année est une année 
bissextile (z=1) le 29ème jour du mois de février est pris en 


compte (ligne 590). 


La ligne 750 permet enfin le branchement du programme sur les 
différents jours de la semaine et l'affichage correspondant (le 


... de l'année ... est/était un ...) et si vous le souhaitez vous 


pouvez faire calculer le jour de la semaine d'une autre date. 
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10 REM Calendrier 

20 REM Programmes Basic pour le CPC464 

30 REM Copyright 1984 DATA BECKER & 

31 Rainer Lueers 

40Q INK O,1:INK 1,24: INK 2,1,24:effet=2:normal=i 

SO MODE 1 

60 PRINT 

70 PRINT 

80 FRINT 

90 PRINT “ Determination du jour de la semaine 
de 1901 a 2000" 

100 PRINT:PRINT 

110 KEM Entree de 1 ‘annee et calcul 

111 ° (pour les annees bissextiles) 

120 INPUT “Annee ";) 

130 IF 3<1901 OK j>2000 THEN GOSUB 990:GOT0 50 

140 IF INT(3/4)=)j/4 THEN z=1 ELSE z=0 

150 31-2 

160 IF 3=1901 THEN GOTO 23 

170 FOR n=1902 TO j 

180 j1=31+1 

190 IF INT((n-1)/4)=(n-1)/4 THEN j1=51+1 

200 IF 3126 THEN j1=31-7 

210 NEXT n 

220 REM Entree du mois et calcul 

22 ‘ (nom du mois et nombre de jours) 

230 INPUT "Mois "“;m 

240 IF m<1i OR m>12 THEN GOSUB 990:G0T0 50 

250 ON m GOSUB 270,290,310,330,350,370,390,410,430,450,470,4 


260 GOTO 510 

270 m#$="Janvier" 
280 RETURN 

290 m$="Fevrier" 
300 RETURN 

310 m$="Mars" 
320 RETURN 

330 m$="Avril" 
340 RETURN 

350 m$="Mai" 
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RETURN 

m$="Juin" 

RETURN 

m$="Juillet" 

RETURN 

m+$="Aout" 

RETURN 

m$="Septembre" 

RETURN 

m$="Octobre" 

RETURN 

m$="Novembre" 

RETURN 

m$="Decembre" 

RETURN 

RESTORE:FOR n=1 TO m 

READ mi 

NEXT n 

DATA 31,28,31,30,31,30 
DATA 31,31,30,31,30,31 

IF z=1 AND m=2 THEN mi=29 
REM Entree du jour (numero) 
É du jour de la semaine 


INPUT “Jour "3st 


IF t=29 AND m=2 AND z<>i THEN GOSUB 990:GOT0 50 
IF t<1 OR t>mi THEN GOSUB 990:G0T0 50 


t1=0 

RESTORE 

IF m=1i THEN GOTO 690 
FOR n=2 TO m 

READ mi 

ti=ti+mi 

NEXT n 

IF z=1i AND m>2 THEN ti=ti+1 
ti=titt+;i 
ti=ti-INT(t1/7)#7 

IF ti1=0 THEN t1=7 


PRINT 
PRINT " Le";t;m#$;" de l'annee"; )j 
PRINT " est/etait un "; 
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et calcul 


750 ON t1 GOSUE 840,860,880,900,920,940,960 


760 
770 
780 


a semaine ( 


790 
800 
810 
820 
8:0 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 


1020 


1050 


PRINT 

PRINT 
INPUT " Voulez-vous calculer 
/N) "sf 

f$=UPPERS (f#) 

IF f#="N" THEN END 

RESTORE 

CLS 

GOTO 60 

PRINT'"Dimanche" 

RETURN 

PRINT'"Lundi" 

RETURN 

FRINT "Mar di" 

RETURN 

FRINT'"Mercredi" 

RETURN 

PRINT"Jeudi" 

RETURN 

PRINT'"Vendredi " 

RETURN 

FRINT"Samedi " 

RETURN 

END 

PEN effet:PRINT:PRINT TAR(12) 
PEN normal : GOSUR 1010:RETURN 
PRINT:PRINT TARB(7) 
f$=INKEVE#SIF f$="" 
RETURN 


THEN GOTO 1020 
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un 


autre jour de 1 


“Entree incorrecte!" 


“<Appuÿyez sur une touche S.V.P.>" 


Fichier de disques 


Ce programme ne méritera son nom que si vous le tapez mot pour 
mot, instruction pour instruction, exactement comme il figure dans 


notre recueil de programmes. 


Mais comme le produit final, moyennant cette précaution, sera une 
petite banque de données aux performances pas du tout 
négligeables, il est aussi possible de modifier certaines 
instructions PRINT, de façon par exemple à ce que PRINT'"Entrez les 


disques" devienne PRINT'Entrez les adresses. 


Vous pourriez ainsi vous constituer très facilement, en plus de 
votre programme de fichier de disques, un programme de fichier 
d'adresses qu'il faudrait bien sûr que vous sauvegardiez 


séparément. 


Nous reconnaissons toutefois que le programme de fichier de 
disques pâtit malgré tout de certaines contraintes qui ne 
pourraient être valablement éliminées que si nous ne travaillions 


pas sur cassette mais sur disquette. 


La première limite du programme tient bien sûr à la capacité 
mémoire de notre ordinateur: si nous utilisons pleinement une 
fiche (trois fois 40 caractères), nous occupons déjà 120 octets en 
mémoire. 100 fiches représentent donc 12000 octets. C'est pourquoi 
nous avons dû limiter à 300 le nombre maximum de fiches 


différentes. 
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Si vous êtes certain que vous n'utiliserez pas autant de 
caractères par fiche, vous pouvez modifier le programme de façon à 
remonter le nombre limite de fiches. Vous pouvez par exemple 


modifier ainsi la ligne 100: 


100 IF z<1 OR z>H00... 


Le programme ‘fichier de disques' vous offre les possibilités 


suivantes: 


1. Vous pouvez constituer des fiches de trois champs (nom du 


disque, chanteur, numéro). 


2. Vous pouvez charger des fichiers à partir d'une cassette. 


3. Vous pouvez sauvegarder des fichiers sur cassette. 


H. Vous pouvez faire rechercher un disque en mémoire (d'après le 
nom du disque, du chanteur ou le numéro). Pour cette fonction, 
l'écran affiche les données trouvées qui correspondent à ce que 
vous cherchez jusqu'à ce que l'écran soit plein. Vous appuyez 
alors sur ENTER pour que la recherche se poursuive. Ceci vous 
permet donc de faire rechercher par exemple dans votre fichier 


tous les disques d'un chanteur que vous possédez. 


5. Vous pouvez faire éditer la liste complète de vos disques sur 
l'écran ou sur une imprimante (pour l'affichage à l'écran, les 
données sont affichées par groupe de 5 et vous devez appuyer sur 


la touche ENTER pour passer à la suite). 


2:108-— 


6. Vous pouvez modifier les données entrées. Comme la routine 
d'entrée (point 1) vous permet déjà de corriger les données que 
vous avez entrées, il est peu probable que vous utiliserez cette 
fonction pour corriger le nom des chanteurs ou des disques 
figurant dans votre fichier. Nous avons en fait surtout pensé ici 
au cas où vous transformeriez ce programme en programme de fichier 
d'adresses. Il arrive en effet fréquemment qu'on ait à modifier 
les données d'un fichier d'adresses à la suite de changements 
d'adresses. Il vous suffira alors de sélectionner le point 6 du 
programme. Vous pourrez ensuite laisser inchangées certaines 
informations en appuyant simplement sur ENTER et en modifier 


d'autres en entrant les nouvelles informations correspondantes. 


Que vous utilisiez ce programme pour vos disques ou que vous le 
transformiez en programme de fichier d'adresses, nous vous 
souhaitons en tout cas de bons moments et nous espérons qu'il vous 


permettra de mettre un peu d'ordre dans vos affaires. 
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10 REM Fichier de disques 

20 REM Programmes Basic pour le CPC464 

350 REM Copyright 1984 DATA BECKER & 

31 Rainer Lueers 

40 INK O,1:INK 1,24:INK 2,1,24:effet=2:normal=i 

50 m=1:MODE 1 

60 REM Preparatifs avant dimensionnement 

61 des variables 

70 PAPER 1:PEN O:PRINT "Fichier de disques":PAPER O:PEN 1 

80 PRINT 

90 INPUT "Combien de disques voulez-vous enregistre 
mr (maximum 300) "3:z 

100 IF z<1 OR z>300 THEN GOSUB 2300:GOT0 50 

110 fr=FRE(O):DIM p#(z) ,s$(z) ,n$(z) 

120 PRINT:PRINT "Le seul dimensionnement a";z:PRINT "disques 
necessite";fr-FRE(O);"cases memoire." 

130 PRINT:PRINT:PRINT "Restent donc par disque au maximum: ": 
PRINT: PRINT “"sINT(FRE(O)/2):PRINT:PRINT "cases m 
emoire disponibles.":PRINT:PRINT:PRINT 

140 INPUT "Est-ce suffisant (sinon il faut changer le dimens 
ionnement des disques a entrer)= C /N) "35f# 

150 f#=LEFTS# (UPPERS#(##) ,1) 

160 IF f#$="N" THEN CLEAR:GOTO 50 

170 REM Affichage du menu principal 

180 CLS 

190 LOCATE 6,8 

200 PAPER 1:PEN O:PRINT "Fichier de disques":PAPER O:PEN 1 
210 LOCATE 16,10 

220 PRINT "Menu" 

230 LOCATE 8,13 

240 PRINT “1.Entrer disques" 

250 LOCATE 8,14:PRINT "2.Charger disques" 

260 LOCATE 8,1S5:PRINT "3.Sauvegarder disques" 

270 LOCATE 8,16:PRINT "4.Rechercher disques" 

280 LOCATE 8,17:PRINT "S.Sortir disques" 

290 LOCATE 8,18:PRINT ‘"é6.Modifier disques" 

300 LOCATE 6,2 

310 INPUT "Votre choix (1/2/3/4/5/8) ":f# 

3520 IF f+<"1" OR f#$>"6" THEN GOSUB 2300:G60T0 180 

330 ON VAL(f#+) GOSUE 370,680,940,1220,1750,2020 
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340 


350 


f+$="":#f1#="":#f2$="":n1=0 

GOTO 180 

REM Sous-programme d'entree des 
donnees 

FOR n=m TO z 

CLS 

PAPER 1:PEN O:PRINT “"i.Entrer des 


FRINT 

GOSUB 2360 

FRINT 

f1#$="":PRINT "Nom du disque" 
INPUT p#{(n):1F LEN(p#(n))>40 THEN 
IF p#(n)="" THEN m=n: RETURN 

PRINT “Chanteur, Groupe: 

INFUT s#(n):1F LEN(s$#(n))>40 THEN 
FRINT "“Numero/Code:" 

INPUT n#$(n):1F LEN(n#$(n))2>40 THEN 
KEM Fremier affichage des donnees 
entrees avec premiere 

possibilite de modification 


PRINT 


disques":PAPER O:PEN 1 


p$(n)=LEFT# (p#(n),40) 


S$(n)=LEFT#(s+#(n) ,40) 


n$(n)=LEFT$#(n#$(n),40) 


PRINT "Voici encore une fois les donnees entrees:" 


PRINT "Numero d'enregistrement "i;n;"sur 1 a";z 


PRINT 


PAPER 1:PEN O:PRINT "Nom du disque:":PAPER O:PEN 1 


FRINT p#(n) 


PAPER 1:PEN O:PRINT "Chanteur, Groupe:":PAPER O:PEN 1 


PRINT s#(n) 


PAPER 1:PEN O:PRINT "Numero/Code:":PAPER O:PEN 1 


PRINT n#(n) 

PRINT 

INPUT "Correct ( /N)":#f1# 
f1$=UPPERS (f1#) 

IF f1#="N" THEN PRINT:G0TO 430 
NEXT n 

RETURN 


REM Sous-programme de chargement de 


fichiers sur disquette 
CLS 


PAPER 1:PEN O:PRINT "2.Charger des disques":PAPER O:PEN 
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1 
700 


PRINT 


710 GOSUB 2360 


720 


PRINT 


30 PRINT"En chargeant un fichier, vous detruisez les donnee 


s pouvant etre en memoire!" 


740 


990 
1# 


PRINT 
INPUT 


“Voulez-vous charger des donnees (0/7 )";#1# 


#1#=LEFTS (UPPERS# (F1#) ,1) 
IF #1$#="0" THEN GOTO 780 ELSE RETURN 


PRINT 
PRINT 
INPUT 


“Nom du fichier" 


dn# 


dn+="!"+dn# 


OFENIN dn# 


INPUT 
PRINT 
PRINT 
PRINT 


FOR n= 


INPUT 
INPUT 
INPUT 
PRINT 


NEXT n 


#9 ,m 


“Le fichier a charger "“;dn# 

“se compose de";m-1; "enregistrements" 
1 TO m-1 

#9,p+#(n) 

#9,5#$(n) 

#9 ,n#(n) 

n:PRINT p#(n):PRINT s#(n):PRINT n#$(n) 


CLOSEIN 
RETURN 


REM Sous-programme de sauvegarde de 


CLS 
PAPER 
1 
PRINT 
GOSUB 
PRINT 
INPUT 


fichiers sur disquette 


1:PEN O:PRINT "“3.Sauvegarder des disques":PAPER 0: 


2360 


“Voulez-vous sauvegarder des donnees (0/7 ) "sf 


1000 f1#=UPPERS(#1#) 
1010 IF f1+="0" THEN GOTO 1020 ELSE RETURN 


1020 PRINT 
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1050 IF dn#<>"" THEN PRINT "Faut-il le sauvegarder sous le n 
om": PRINT dn#;: INPUT " (0/7 ) ":#2#:#2#-LEFT# (UPPER# (42#) ,1) : 
IF #2#="0" THEN GOTO 1070 

1040 PRINT "Nom du fichier “"; 

1050 INPUT dn$ 

1060 dn$="!"+d4n$ 

1070 OPENOUT dn# 

1080 PRINT #9,m 

1090 PRINT 

1100 PRINT "Le fichier a sauvegarder “;dn# 

1105 PRINT "se compose de";m-1; "enregistrements" 
1110 FOR n=1 TO m-1 

1120 PRINT #9,p#(n) 

1122 PRINT #9,s#(n) 

1124 PRINT #9,n#(n) 

1130 PRINT n 

1140 PRINT p#(n) 

1150 PRINT s#$(n) 

1160 PRINT n#t(n) 

1170 PRINT 

1180 NEXT n 

1190 CLOSEOUT 

1200 RETURN 

1210 REM Sous-programme de recherche de 

1211 ‘ disques, chanteurs ou numeros 

1220 CLS 

1230 PAPER 1:PEN O:PRINT "4.Recherche de disques":PAPER O:PE 
N 1 

1240 PRINT 

1250 GOSUB 2360 

1260 PRINT 

1270 REM Affichage d'un sous-menu: 


1271 Recherche d'apres: 
1272 ‘ 1) Nom du disque 
12735 ‘ 2) Chanteur, Groupe 
1274 ‘ 3) Numero/Code 


1280 PRINT “Recherche d'apres quel critere:" 
1290 PRINT 

1300 PRINT "1.Nom du disque" 

1310 PRINT"2.Chanteur, Groupe" 
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1520 PRINT "3. Numero/Code" 
1330 PRINT 
1:40 INPUT "Votre choix (1/2/3) ":#f1# 
350 IF f1$<"1" OR f1#>"3" THEN RETURN 
1360 ON VAL(f1#) GOSUB 1790,1510,1620 
1570 f1#="":f2#="":n1=0:GOT0 1220 
1:80 REM Recherche d'apres le nom du 
1:81 disque 
1390 CLS 
1400 PRINT "Nom du disque" 
1410 INPUT p#:1F LEN(p#$)>40 THEN p#=LEFT#(p#,40) 
1420 IF p#="" THEN RETURN 
1450 FOR n=1 TO m-1 
1440 IF p#=p#(n) THEN PRINT n:PRINT p#(n):PRINT s5#$(n):PRINT 
n#(n):nt=n1+1 
1450 IF n1=S THEN n1=0:GOSUR 2553 
1460 NEXT n 
1470 PRINT 
1480 GOSUR 2330 
1490 RETURN 
1500 REM Recherche d'apres chanteur, 
1501 groupe 
1510 CLS 
1520 PRINT “Chanteur, Groupe" 
1530 INPUT Ss#:1F LEN(Ss#)>40 THEN s$=LEFT#+(s#,40) 
1540 IF s$="" THEN RETURN 
1550 FOR n=1i TO m-1 
1560 IF st=s#$(n) THEN PRINT n:PRINT p#(n):PRINT s#(n):PRINT 
n#$(n):ni=n1+i 
1570 IF n1i=5 THEN n1=0:GOSUB 23350 
1580 NEXT n 
1590 PRINT 
1600 GOSUB 2330 
1610 RETURN 
1620 CLS 
1630 REM Recherche d'apres numero/code 
1640 PRINT “"Numero/Code" 
1650 INPUT n#$ 
1660 IF n$="" THEN RETURN 
1670 FOR n=1 TO m-i 
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1680 


IF n#$=n$(n) THEN PRINT n:PRINT p#(n):PRINT s$(n):PRINT 


n$(n):ni=ni+i 


1690 
1700 
1710 
1720 
1730 
1740 
1741 
1742 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1851 

1860 
1870 
1880 
1890 
1900 
1910 
1920 
1950 
1940 
1941 
1950 
1960 


IF n1=5 THEN n1=0:GOSUB 2330 
NEXT n 

PRINT 

GOSUB 2330 

RETURN 

REM Sous-programme de sortie des 


donnees sauvegardees sur 

ecran ou imprimante 

CLS 

PAPER 1:PEN O:PRINT "S.Sortir disques":PAPER O:PEN 1 


PRINT 

GOSUR 2360 

PRINT 

PRINT "Sortie sur ecran ou sur imprimante?" 


INPUT "(E/1)"3;#f2# 
IF f2#="" THEN RETURN 
f2#=LEFT+# (UPPERS (24) ,1) 
IF f#2#="1" THEN GOTO 1950 
REM Sortie des donnees sur le 
moniteur 
CLS:FOR n=1 TO m-1 
ni=n1i+1 
IF n1=5 THEN n1=0:GOSUR 2330:CLS 
PRINT n:PRINT p#(n):PRINT s#(n):PRINT n#(n) 
NEXT n 
PRINT 
GOSUB 2330 
RETURN 
REM Sortie des donnees sur 
imprimante 
FOR n=1i TO m-1 
PRINT #8,n:PRINT #8,p#(n):PRINT #8,s$(n):PRINT #8,n#(n) 


: PRINT #8 


1970 
1980 
1990 
2000 
2010 


NEXT n 
PRINT 
GOSUR 2330 
RETURN 


REM Sous-programme de modification 
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2011 
2020 
2030 


CLS 
PAPER 


O:PEN 1 


2040 
2050 
20860 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


2291 
2300 


2310 
2320 
2321 
2350 
2340 
2350 


PRINT 
GOSUB 
PRINT 
INPUT 


des donnees en memoire 


1:PEN O:PRINT "6.Modification des disques":PAPER 


2360 


"Numero du disque ";ni 


IF ni>m-1 OR ni<O THEN GOSUB 2300:GO0OTD0 2070 


IF ni= 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
n1=0 


© THEN RETURN 


Ni: PRINT p#(n1):PRINT s$(n1):PRINT n#$(n1) 


“Faut-il changer (Non=<ENTER») ?" 
p#+(n1) 

d#:1F d$#<>"" THEN p#(n1)=d# 
s$(n1) 

d#:1F d#$<>"" THEN s$(n1)=d# 
n#(n1) 

d#:1F d$<>"" THEN n#$(n1)=d# 


“Entree pour numero de disque";n1i;":" 
p#t(n1) 
s$(n1) 
n$(n1) 


2330 


GOTO 2020 


REM Sous-programme pour message 


PRINT: 


quand entree incorrecte 


PEN effet:PRINT TAB(12) "“Entree incorrecte!":PEN 
normal : GOSUR 2330:RETURN 
a$=INKEY#:1F a$="" THEN GOTO 2310 ELSE RETURN 


REM Sous-programme pour geler 


l'affichage a l'ecran 
PRINT:PRINT TAB(7) "<Appuyez sur une touche S.V.P.35" 
a$=INKEY#:IF a$="" THEN GOTO 2340 ELSE RETURN 
REM Sous-programme general 


PRINT 


"Retour au menu avec <ENTER>, sans entreraucun 
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mo 


t" 
2370 RETURN 
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Tableau sportif 


Ce programme peut vous réserver de très bons moments et vous faire 
en outre gagner beaucoup de temps si vous vous intéressez au 


sport. 


Votre ordinateur va en effet yous aider à gérer les nombreux 
évènements réguliers qui émaillent une année sportive. Nous avons 
choisi comme exemple le football qui a donc servi de référence 


pour notre programme. 


Au début de la routine d'entrée, vous pouvez choisir de gérer 
jusqu'à 20 clubs. Le CPC vous demande ensuite si les noms des 
clubs qui figurent déjà en lignes DATA (clubs de 1ère division) 
correspondent bien aux clubs en compétition cette saison ou si 
vous voulez entrer vous-même une liste de jusqu'à 20 clubs. Le 
fonctionnement de ce programme est très simple: il vous permet 
d'entrer les résultats de chaque journée dès qu'ils sont connus et 
de voir alors le tableau qui se dégage de ces résultats. Vous 
pouvez consulter les résultats de toutes les journées que vous 
avez déjà entrées et bien sûr vous pouvez également sauvegarder 


les résultats sur cassette. 


Vous pouvez entrer la liste des clubs et le calendrier en mode 
direct ou les modifier dans les lignes de DATA. Vous pourrez 
ensuite recharger à tous moments toutes les données que vous avez 
déjà sauvegardées sur cassette, en choisissant l'option charger un 
tableau en début de programme. Nous vous souhaitons un grand 


championnat! 
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10 REM Tableau sportif 

20 REM Programmes Basic pour le CPC 464 

30 REM Copyright 1984 DATA HECKER & 

S1 ” Rainer Lueers 

40 INK O,1:INK 1,26: INK 2,1,24:effet-2:normal=i:PEN 1:PAPER 

[o) 

90 MODE 1 

34 INPUT “Charger un tableau (0/ )":f# 

56 MODE 1:f#$=UPPER#$($f#):1F LEFT#(f#$,1)="0" THEN GOSUB 7000:6G 
OTO 530 

60 REM Choix du nombre de clubs 

61 (de 4 a 20) 

70 INPUT "Combien de clubs (4/6/8/10/12/14/16/18 ou 20) ";f 
# 

80 REM Liste des variables qui sont 

81 dimensionnee avec leurs 

82 ‘ significations respectives 


90 REM a$( )=nom de club 


91 b( , )=rencontre ayant eu lieu 
92: : c( , , )=resultat 

93 e( , )=total buts 

94 f( , )=total buts encaisses 
100 REM g{ , )=total matchs gagnes 
101 ” h( , )=total matchs nuls 

102 10 , D=total matchs perdus 
103 kK( , ,; )=rencontres jumelees 
104 zi bis zS=pour routine de tri 


110 f=VAL(f#):IF f/2<>INT(f/2) THEN PRINT:GOSUB 1290:GOT0 50 
120 IF f<4 OR #>20 THEN GOSUB 1290:GO0OT0 50 

125 GOSUB 130:GO0OT0 140 

130 DIM a$(f),b(f#2,f/2) ,c(f,f#2-2,2) ,je(f),f(#),g(#),h(#),ic 
#),k(f-1,f/2,2) ,z10(f+1),z2(f+1) ,z3(f+1) ,24(f+#+1),25(f+1):RETU 
RN 

140 REM Entree directe de noms de clubs 

141 ou entree des noms de clubs 

142 a partir des lignes de DATA 

150 INPUT "Noms des lignes de programme (0/ )";f# 

160 f$=UPPERS$ (f#):1F LEFT$(f#,1)="0" THEN GOTO 230 

170 FOR n=1 TO f 

180 PRINT "Club";n;:INPUT ": ";3f$ 
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190 IF f+#="" THEN GOTO 180 

200 IF LEN(f#)>10 THEN a$(n)=LEFT#(f#$,10) ELSE a$(n)=f# 
210 NEXT n 

220 GOTO 350 

230 ON f GOSUB 250,250,250,250,250,260,250,270,250,280,250,2 
90,250,300,250,310,250,320,250,330 

240 GOTO 350 

250 RESTORE 6350:FOR n=1 TO f:READ a$(n):NEXT n:RETURN 
260 RESTORE 6320:FOR n=1 TO f:READ a$(n):NEXT n:RETURN 
270 RESTORE 6290:FOR n=1 TO f:READ a$ (n) :NEXT n: RETURN 
280 RESTORE 6260:FOR n=1 TO f:READ at(n):NEXT n:RETURN 
290 RESTORE 6230:FO0OR n=1i TO f:READ a$(n):NEXT n:RETURN 
300 RESTORE 6200:FOR n=1 TO f:READ a$(n):NEXT n:RETURN 
310 RESTORE 6170:FOR n=1 TO f:READ a$(n):NEXT n:RETURN 
320 RESTORE 61350:FOR n=1 TO f:READ af$(n):NEXT n:RETURN 
330 RESTORE 6080:FOR n=1 TO f:READ a$(n):NEXT n:RETURN 
340 REM Le calendrier en lignes de DATA 


341 {systeme habituel) peut etre 
342 ‘ utilise, mais il est egalement 
3243 ° possible d'entrer son propre 
344 ° calendrier 


350 INPUT "Calendrier en lignes DATA (0/ )"3;:f#:#f#=-UPPERS(##) 
:1F LEFT#(f#,1)="0" THEN GOTO 420 

3560 PRINT:PRINT:PRINT "Veuillez entrer le calendrier avec de 
Ss chiffres (Exemple: 1<virgule>?2<ENTER>) O0 pour renouveler 
derniere entree“ 

370 FOR n=1 TO f-1:PRINT:PRINT:PRINT “"Journee";n:PRINT 

380 FOR m=1 TO f/2 

390 PRINT:PRINT "Match'";m: INPUT a,b:1F a>f OR b>f OR a=b THE 
N GOTO 390 ELSE IF a=0 OR b=O THEN m=m-1:GO0OT0 390 ELSE k(n,m 
51)=a:tk(n,m,2)=b:a=0:b=O:PRINT a$(kin,;m,1))3" — ";a$(kn,m,2 
)) 

400 NEXT m,n 

410 GOTO 530 

420 ON f GOSUB 440,440,440,440,440,450,440,460,440,470,440,4 
80,440,490,440,500,440,510,440,520 

4350 GOTO 530 

440 RESTORE 5000:FOR n=1 TO f-1:FOR m=1i TO f/2:READ kin,m,1) 
,kK(N,m,2):NEXT m,n:RETURN 

450 RESTORE 5040:FOR n=1 TO f-1:FOR m=1 TO f/2:READ k(n,m,1) 
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,k(n,;m,2):NEXT m,n:RETURN 
460 RESTORE 5100:FOR n=1 TO 
skin,m,2):NEXT m,n:RETURN 
470 RESTORE 5180:FOR n=1 TO 
.kK(n,m,2):NEXT m,n:RETURN 
480 RESTORE 5280:FO0R n=1 TO 
,kn,m,2):NEXT m,n:RETURN 
490 RESTORE 5400:FOR n=1 TO 
,k(n,m,2):NEXT m,n:RETURN 
500 RESTORE 5540:FO0R n=1 TO 
,k(n,m,2):NEXT m,n:RETURN 
510 RESTORE 5700:FOR n=1 TO 
sk(n,;m,2):NEXT m,n:RETURN 
520 RESTORE 5880:FOR n=1 TO 
,k(n,m,2):NEXT m,n:RETURN 
530 MODE 1:PEN effet :LOCATE 
EN normal 

540 LOCATE 7,10 

550 PRINT "1.Entrer journee" 


560 LOCATE 7,11 


f-1:FOR 


f-1:FOR 


f-1:FOR 


f-1:FOR 


f-1:FOR 


f-1:FOR 


f-1:FOR 


7,7:PRINT 


m=i 


570 PRINT "2.Afficher tableau actuel" 


580 LOCATE 7,12 


590 PRINT "3.Examiner journee" 


592 LOCATE 7,135 


594 PRINT "4.Sauvegarder tableau actuel" 


600 LOCATE 7,15 
610 INPUT "Votre choix (1 a 


4) ":5f# 


TO 


TO 


TO 


TO 


TO 


TO 


TO 


f/2:READ kn,m,1) 


f/2:READ kin,m,1) 


f#/2:READ kn,m,1) 


f/2:READ kn,m,1) 


f/2:READ kn,m,1) 


#/2:READ kin,m,1) 


f/2:READ kn,m,1) 


“Tableau des clubs";: 


620 IF VAL(f#)<1 OR VAL($f#)>4 THEN GOSUB 1270:GOSUB 1290:GOT 


0 420 


630 ON VAL(f#$) GOSUB 660,900,1010,8000 


640 GOTO 530 
650 REM Entrer journee 
660 MODE 1 


670 INPUT “Quelle journee ";f#:1F VAL(f#)<1 OR VAL(F#)>f#2-2 


THEN GOSUB 1290:G60T0 670 
680 IF VAL(f#)2>f-1 THEN GOTO 


740 


690 FOR n=1 TO f/2:PRINT “"Match";n 
700 IF b{(VAL(#F#) ,n)<>0O THEN PRINT CHR$ (7) ; "Erreur! Resultat 
connu: ":PRINT a#$(k(VAL(#$) ,n,1))3;"-";a$(k(VAL(#F#) ,n,2))35":"; 
CCkK(VALCF#) ,n,1) ,VAL(##),1)5;"—"3cCkÇ(VAL(F#) ,n,1) ,VAL(##),2): 


ro 


GOTO 750 
710 PRINT a#$(kK(VAL(#F#) ,n,1))3" — ";a$(CkÇ(VAL(#F#) ,n,2)) 3: INPUT 
a,b:1F a=99 THEN PRINT “annule":b(VAL(#f#) ,n)=0:GOTO 730 ELS 
E GOSUB 790 
720 DB(VAL(F#) ,n)=1:cCkK(VAL(F#) ,n,1) ,VAL(f#) ,1)=a:c(k(VAL(##) 
,5n,1),VAL(##),2)=b:c €Ck(VAL(F#) ,n,2) ,VAL (##) ,1)=b:cCk(VAL(##) 
51,2) ,VAL(f#),2)=a 
730 NEXT n:RETURN 
740 FOR n=1 TO f/2:PRINT "Match'"sn 
750 IF D(VAL(F#) ,n)<>0 THEN PRINT CHR#(7) 3; "Erreur! Resultat 
connu: ":PRINT a#$f(kK(VAL(f#)-f+1,n,2))353"-";a#$ç(k(VAL(fF#)-#f+#+1,n, 
1))3"2";c(K(VAL(F#H)-f+1,n,1) ,VAL(F#),1)3"—-"3;c(k(VAL(F#H)—-f+1, 
n,1),VAL(#f#),2):GOT0 780 
760 PRINT a#(kKÇ(VAL(F#)-f+1,n,2))353" — "sa#(kK(VAL(F#)-f+1,n,1) 
)3: INPUT a,b:1F a=99 THEN PRINT "annule":b(VAL(#f#) ,n) =0:GOTO 
780 ELSE GOSUKH 840 
770 D(VAL(F#) ,n)=1:c(kK(VAL(FH)-f+1,n,1) ,VAL(f#) ,1)=b:cCk (VAL 
Cf#)-f+1,n,1) ,VAL(F#) ,2)=a:c(kK(VAL(f#)-f+1,n,2) ,VAL(#f#) ,1)=a 
:CCK(VAL (FH) -f+1,n,2) ,VAL(#F#) ,2) =b 
780 NEXT n:RETURN 
790 e(kK(VAL(F#) ,n,1))=e(k(VAL(fF#) ,n,1))+az2fçCk(VAL(F#) ,n,1))= 
FCK(VAL(FE) ,n,1))+b:e(k(VAL(F#) ,n,2))=e(k(VAL(F#) ,n,2))+b:#1( 
KH(VAL(F#) ,n,2))=f(CkK(VAL(F#) ,n,2))+a 
800 IF a=b THEN h(KÇ(VAL(F#) ,n,1))=hCkK(VAL(f#) ,n,1))+1:h(Ck(VA 
L(F#) ,n,2))=h(kK(VAL(F#) ,n,2))+1 
810 IF a>b THEN g(k(VAL(f#) ,n,1))=g(kKÇ(VAL(##) ,n,1))+2:i(k(VA 
L(f#) ,n,2))=1(K(VAL(F#) ,n,2))+2 
820 IF ab THEN 1 (K(VAL(f#) ,n,1))=i(kK(VAL(f#) ,n,1))+2:g(k(VA 
L(F#) ,n,2))=g(k(VAL(F#) ,n,2))+2 
30 RETURN 
840 e(kK(VAL(F#)-f+1,n,1))=e(tkK(VAL(F#)-f+1,n,1))+b:f(CkÇCVAL(F# 
)-f+1,n,1))=f(CK(VAL(F#)-f+1,n,1))+ase(k(VAL(#F#)-f+1,n,2))=et( 
K(VAL(F#)-f+1,n,2))+a:f(CkK(VAL(F#)-f+1,n,2))=f(K(VAL(##)-F+1, 
n,2))+b 
850 IF a=b THEN h(kK(VAL(f#)-f+1,n,1))=h(kÇ(VAL(F#)-f+1,n,1))+ 
1:hCKCVAL(F#)-f+1,n,2))=h(kCVAL(F#)-f+1,n,2)) +1 
860 IF a>b THEN g(k(VAL(F#)-f+1,n,2))=g(k(VAL(f#)-f+1,n,2))+ 
2:1(K(VAL(F#)-f+1,n,1))=iCkK(VAL(F#)-f+1,n,1)) +2 
870 IF a<b THEN i(kK(VAL(fF#)-f+1,n,2))=i (kK(VAL(f#)-f+1,n,2))+ 
2:g(kK(VAL(F#)-f+1,n,1))=g(k(VAL(F#)-f+1,n,1))+2 


29 


880 RETURN 

890 REM Afficher le tableau actuel 

900 MODE 2:GOSUB 1180 

910 PRINT"P1. Club Matchs + = — Goal average 

> Points P1." 

920 PRINT STRING#(71,"="):FOR n=1 TO f 

950 PRINT n; TAB(5);a#$(zS(n)); TAB(18) ; (g(z5(n))+(h(zS5(n)) #2) + 
1(25(n)))/2; TAB(24) ;g{(zS(n))/2; TAB(29);h(zS5(n)); TAB(34) ;i(zs 
(n))/2:; TAB(40);e(zS(n)); TAB(45)3;":"3;#f(z5(n)); 

940 PRINT TAB(S1);e(zS(n))-#f(25(n)): TAB(59) ;g(zS(n))+h(zS(n) 
); TAB(68) ;n 

950 NEXT n 

960 FRINT STRING#(71,"=") 

970 PRINT TAB(21);"<Appuyez sur une touche S.V.P.2" 

980 a$=INKEY#:1F a$="" THEN GOTO 980 

990 RETURN 

1000 REM Examiner journee 

1010 CLS:PRINT: INPUT "Toute la saison (0/ ) ";#f#:#f#+-UPPERS (Cf 
#):1F LEFT#(f#,1)="0" THEN GOTO 1100 

1020 PRINT “Journee ( 1 a";f#2-2;: INPUT ") "3#f#2:1F VAL(fF#)<1 
OR VAL(f#)>f#2-2 THEN GOSUB 1290:GOT0 1020 ELSE IF VAL(#f4#)2> 
f-1 THEN GOTO 1060 

1070 n=VAL(f#):CLS: PRINT "Journee"; n:PRINT:PRINT:PRINT:FOR m 
=1 TO f/2:PRINT m; TAB(5) ;a$t(k(n,m,1)):;:TAB(15);a#$(k(n,m,2)); 
1040 IF bin,m)=0 THEN PRINT TAB(33)3;"— : -": ELSE PRINT TAB 
(32)s;ctkn,m,1) ,n,1):TAB(S3S6)3;":";TAB(37);c(kn,m,1) ,n,2); 
1050 NEXT m:PRINT:PRINT:GOSUB 1270:GO0T0 1170 

1060 n=VAL(f#):CLS:PRINT "Journee";nsn=n-(f-1) : PRINT: PRINT:P 

RINT:FOR m=1i TO f/2:PRINT m; TAB(5);a$t(k(n,m,2))3;TAB(14);a$(k 
n,m,1)):TAB(23); 

1070 IF bin,m)=1 THEN PRINT ckin,m,1),n,2):; TAB(27);":";TAB( 
28);c(kn,m,1),n,1)3; ELSE PRINT " — 2: -"; 

1080 IF bn+(f-1),m)=Q THEN PRINT TAB(33)3;"— : —" ELSE PRIN 
T TAB(32);ctkn,m,1) ,n+f-1,1) 3: TAB(36);":"3 TAB(37);c(k(n,m,1) 
n+f-1,2); 

1090 NEXT m:PRINT:PRINT:GOSUB 1270:G0T0 1170 

1100 FOR n=1 TO f-1:CLS:PRINT "Journee"; n:PRINT:PRINT:PRINT: 

FOR m=1 TO f/2:PRINT m; TAB(5);a$(kn,;m,1)):TAB(15);a$(k(n,m, 
2)): 


1110 IF bin,;m)=0 THEN PRINT TAB(33)3;"— : —-"; ELSE PRINT TAB 
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(32);ctkn,m,1),n,1):; TAB(3S6)5;":"; TAB(S7);c(k(n,;m,1),n,2); 
1120 NEXT m:PRINT:PRINT:GOSUB 1270:NEXT n 

1150 FOR n=1 TO f-1:CLS: PRINT “Journee";n+f-1: PRINT: PRINT:PR 
INT:FOR m=1 TO f/2:PRINT m; TAB(S);at(k(n,m,2)); TAB(14);a$(k( 

n,m,1)):;TAB(23); 

1140 IF bin,m)=0 THEN PRINT “ —- : —-"; ELSE PRINT cikin,m,1) 
N32)3:3TAB(27)3;":"; TAB(28);c(k(n,m,1),n,1); 

1150 IF bn+f-1,m)=0 THEN PRINT TAB(33)3;"— : —-"3; ELSE PRINT 
TAB(32);c(kn,m,1) ,n+f-1,1): TAB(36);":"3; TAB(37);c(kn,m,1), 

n+f-1,2)3 

1160 NEXT m:PRINT:PRINT:GOSUB 1270:NEXT 

1170 RETURN 

1180 REM Sous-routine de tri 

1190 FOR n=1 TO f:z1(n)=g{(n)+h(n):z2(n)=e(tn)-f(n):zS3(n)=e(n 
):z4(n)=-1:NEXT n 

1200 FOR n=1 TO f 

1210 FOR m=1 TO f 

1220 IF z1(m)>z4(n) THEN z4(n)=z1(m):a=m:GOTO 1250 

1250 IF zil(m)=z4(n) AND z2(m)>z2(a) THEN z4(n)=z1 (m):a=m:60 

TO 1250 

1240 IF zi(m)=z4(n) AND z2(m)=z2(a) AND z3(m)>z3(a) THEN z4 
(n)=z1 (m):a=m 

1250 NEXT m:z1(a)=-1:z5(n)=a:a=f+1:NEXT n 

1260 RETURN 

1270 PRINT:PRINT TAB(7);"<Appuyez sur une touche S.V.P.32>" 
1280 a$=INKEY#:1IF at="" THEN GOTO 1280 ELSE RETURN 

1290 PEN effet:PRINT TAB(12) "Entree incorrecte!":PEN normal 
: GOSUR 1270: RETURN 

SO000 REM Datas pour 4 clubs 

3010 DATA 1,4,2,3 

5020 DATA 4,3,1,2 

50350 DATA 2,4,5,1 

9040 REM Datas pour 6 clubs 

9050 DATA 1,6,2,5,3,4 

5060 DATA 6,4,5,3,1,2 

5070 DATA 2,6,5,1,4,5 

5080 DATA 6,5,1,4,2,3 

5090 DATA 5,6,4,2,5,1 

5100 REM Datas pour 8 clubs 

9110 DATA 1,8,2,7,3,6,4,5 
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5120 
5130 
5140 
95150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
95250 
9260 
5270 
5280 
9290 
5300 
5310 
5320 
5350 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
9900 
5510 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8,5,6,4,7,3,1,2 
2,8,3,1,4,7,5,6 
8,6,7,5,1,4,2,3 
3,8,4,2,5,1,6,7 
8,7,1,6,2,5,3,4 
4,8,5,5,6,2,7,1 


REM Datas pour 10 clubs 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,10,2,9,3,8,4,7,5,6 
10,6,7,5,8,4,9,31,2 
2,10,3,1,4,9,5,8,6,7 
10,7,8,6,9,5,1,4,2,3 
3,10,4,2,5,1,6,9,7,8 
10,8,9,7,1,6,2,5,334 
4,10,5,3,6,2,7,1,8,9 
10,9,1,8,2,7:36,4,5 
5,10,6,4,7,3,8,2,931 


REM Datas pour 12 clubs 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,12,2,11,3,10,4,9,5,8,6,7 
12,7,8,6,9,5,10,4,11,53,1,2 
2,12,3,1,4,11,5,10,6,9,7,8 
12,8,9,7,10,6,11,5,1,4,2,3 
3,12,4,2,5,1,6,11,7,10,8,9 
12,9,10,8,11,7,1,6,2,5,3,4 
4,12,5,3:6,2,7,1,8,11,9,10 
12,10,11,9,1,8,2,7,36,4,5 
5,12,6,4,7,3,8,2,9,1,10,11 
12,11,1,10,2,9,3,8,4,7,5,6 
6,12,7,5,8,4,9,3,10,2,11,1 


REM Datas pour 14 clubs 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,14,2,13,3,12,4,11,5,10,6,9,7,8 
14,8,9,7,10,6,11,5,12,4,13,3,1,2 
2,14,3,1,4,13,5,12,6,11,7,10,8,9 
14,9,10,8,11,7,12,6,13,5,1,4,2,5 
3,14,4,2,5,1,6,13,7,12,8,11,9,10 
14,10,11,9,12,8,13,7,1,6,2,5,53,4 
4,14,5,3,6,2,7,1,8,13,9,12,10,11 
14,11,12,10,13,9,1,8,2,7,36,4,5 
5,14,6,4,7,3,8,2,9,1,10,13,11,12 
14,12,13,11,1,10,2,9,3,8,4,7,5,6 
6,14,7,5,8,4,9,3,10,2,11,1,12,15 
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5520 DATA 14,13,1,12,2,11,3,10,4,9,5,8,6,7 

5530 DATA 7,14,8,6,9,5,10,4,11,3,12,2.15,1 

59340 REM Datas pour 16 clubs 

5550 DATA 1,16,2,15,5,14,4,15,5,12,6,11,7,10,8,9 

5960 DATA 16,9,10,8,11,7,12,6,13,5,14,4,15,3,1,2 

5570 DATA 2,16,3,1,4,15,5,14,6,13,7,12,8,11,9,10 

59580 DATA 16,10,11,9,12,8,15,7,14,6,15,5,1,4,2,3 

59390 DATA 5,16,4,2,5,1,6,15,7,14,8,13,9,12,10,11 

5600 DATA 16,11,12,10,13,9,14,8,15,7,1,6,2,5,3,4 

9610 DATA 4,16,5,3,6,2,7,1,8,15,9,14,10,13,11,12 

5620 DATA 16,12,15,11,14,10,15,9,1,8,2,7,3,6,4,5 

9650 DATA 5,16,6,4,7,5,8,2,9,1,10,15,11,14,12,13 

9640 DATA 16,13,14,12,15,11,1,10,2,9,53,8,4,7,5,6 

9650 DATA 6,16,7,5,8,4,9,3,10,2,11,1,12,15,15,14 

5660 DATA 16,14,15,13,1,12,2,11,3,10,4,9,5,8,6,7 

5670 DATA 7,16,8,6,9,5,10,4,11,3,12,2,13,1,14,15 

5680 DATA 16,15,1,14,2,135,3,12,4,11,5,10,6,9,7,8 

5690 DATA 8,16,9,7,10,6,11,5,12,4,13,3,14,2,15,1 

5700 REM Datas pour 18 clubs 

9710 DATA 1,18,2,17,3,16,4,15,5,14,6,13,7,12,8,11,9,10 
5720 DATA 18,10,11,9,12,8,15,7,14,6,15,5,16,4,17,5,1,2 
5730 DATA 2,18,5,1,4,17,5,16,6,15,7,14,8,15,9,12,10,11 
5740 DATA 18,11,12,10,13,9,14,8,15,7,16,6,17,5,1,4,2,3 
9750 DATA 5,18,4,2,5,1,6,17,7,16,8,15,9,14,10,13,11,12 
5760 DATA 18,12,13,11,14,10,15,9,16,8,17,7,1,6,2,5,3,4 
5770 DATA 4,18,5,3,6,2,7,1,8,17,9,16,10,15,11,14,12,13 
5780 DATA 18,13,14,12,15,11,16,10,17,9,1,8,2,7,53,6,4,5 
5790 DATA 5,18,6,4,7,3,8,2,9,1,10,17,11,16,12,15,13,14 
5800 DATA 18,14,15,13,16,12,17,11,1,10,2,9,3,8,4,7,5,6 
9810 DATA 6,18,7,5,8,4,9,3,10,2,11,1,12,17,13,16,14,15 
5820 DATA 18,15,16,14,17,13,1,12,2,11,5,10,4,9,5,8,6,7 
5850 DATA 7,18,8,6,9,5,10,4,11,3,12,2,15,1,14,17,15,16 
5840 DATA 18,16,17,15,1,14,2,13,3,12,4,11,5,10,0,9,7,8 
5850 DATA 8,18,9,7,10,6,11,5,12,4,13,3,14,2,15,1,16,17 
5860 DATA 18,17,1,16,2,15,3,14,4,135,5,12,6,11,7,10,8,9 
5870 DATA 9,18,10,8,11,7,12,6,15,5,14,4,15,3,16,2,17,1 
3880 REM Datas pour 20 clubs 

5890 DATA 1,20,2,19,3,18,4,17,5,16,6,15,7,14,8,1:,9,12,10,11 
5900 DATA 20,11,12,10,15,9,14,8,15,7,16,6,17,5,18,4,19,5,1,2 
95910 DATA 2,20,5,1,4,19,5,18,6,17,7,16,68,15,9,14,10,13,11,12 
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5920 
S930 
53940 
93950 
9960 
5970 
5980 
5990 
6000 
6010 
6020 
6050 
6040 
6050 
6060 
6070 
6080 
6081 
6082 
6090 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


20,12,13,11,14,10,15,9,16,8,17,7,18,6,19,5,1,4,2,% 
3,20,4,2,5,1,6,19,7,18,8,17,9,16,10,15,11,14,12,1% 
20,13,14,12,15,11,16,10,17,9,18,8,19,7,1,6,2,5,5,4 
4,20,5,3:63:2:7:18,19:9,18,10,17,11,16,12,15,13,14 
20,14,15,13,16,12,17,11,18,10,19,9,1,8,2,7,2,0,4,5 
5,20,6,4,7,3,8,2,9,1,10,19,11,18,12,17,13,16,14,15 
20,15,16,14,17,13,18,12,19,11,1,10,2,9,3,8,4,7,5,6 
6,20,7,5,8,4,9,3,10,2,11,1,12,19,13,18,14,17,15,16 
20,16,17,15,18,14,19,13,1,12,2,11,3,10,4,9,5,8,6,7 
7,20,8,6,9,5,10,4,11,3,12,2,13,1,14,19,15,18,16,17 
20,17,18,16,19,15,1,14,2,13,3,12,4,11,5,10,6,9,7,8 
8,20,9,7,10,6,11,5,12,4,13,3,14,2,15,1,16,19,17,18 
20,18,19,17,1,16,2,15,3,14,4,13,5,12,6,11,7,10,8,9 
9,20,10,8,11,7,12,6,13,5,14,4,15,3,16,2,17,1,18,19 
20,19,1,18,2,17,3,16,4,15,5,14,6,13,7,12,8,11,9,10 
10,20,11,9,12,8,13,7,14,6,15,5,16,4,17,3,18,2,19,1 


REM Datas pour le championnat de 


DATA 


France 1984/85 iere division 
Exemple avec 20 clubs 


Nantes,Toulon,Brest,Lille,Faris S6G,Nancy,Bordeaux, 


Toulouse ,Bastia,Monaco,Tours,Laval ,Auxerre,Strasbrg,Metz ,RC 


Paris,Lens ,Rouen,Marseill ,Sochaux 


6170 
6180 
6190 


REM Datas pour 16 clubs 


DATA 
DATA 


A,B,C,D,E,F,G,H 
1,9,K,L,M,N,0,P 


REM Datas pour 14 clubs 


O DATA 


DATA 


A,B,C,D,E,F,G 
H,1,9,K,L,M,N 


REM Datas pour 12 clubs 


DATA 
DATA 


A,B,C,D,E,F 
6,H,1,J,K,L 


REM Datas pour 10 clubs 


DATA 
DATA 


A,B,C,D,E 
F,6,H,1,J 


REM Datas pour 8 clubs 


DATA 
DATA 


A,B,C,D 
E,F,6,H 


REM Datas pour 6 clubs 


DATA 
DATA 


A,B,C 
D,E,F 


2497 


6350 REM Datas pour 4 clubs 

63560 DATA A,B 

6370 DATA C,D 

7000 MODE 1:INPUT'"Nom du tableau";nom# 

7010 OFENIN MID#(nom#,1,LEN (nom#) ) : INPUT#9,f:GOSUR 150 

7020 FOR m=0 TO f:INPUT#9,a# (Cm) ,e Cm) ,f Cm) ,g Cm) ,hm) ,i (m) : NEX 
T m 

70350 FOR m=0 TO fx2:FOR n=0 TO f/2: INPUT#9,b(m,n):NEXT n,m 
7040 FOR m=0 TO f:FOR n=0 TO f*#2-2:FOR o=0 TO 2:INPUT#9,c(m, 
n,0):NEXT o,n,m 

7050 FOR m=0 TO f-1:FOR n=0 TO f/2:FOR o=0 TO 2: INPUT#9,k(m, 
n,0):NEXT o,n,m 

7900 CLOSEIN:RETURN 

8000 MODE 1:INPFUT"Nom du tableau“";nom#t 

8010 OPENOUT nom#$:WRITE#9,f 

8020 FOR m=0 TO f:WRITE#9,a# (Cm) ,e Cm) ,f Cm) ,g Cm) ,h Cm) ,i (m) : NEX 
T m 

8030 FOR m=0 TO fx2:FOR n=0O TO f/2:WRITE#9,b(m,n):NEXT n,m 
8040 FOR m=0 TO f:FOR n=0 TO f#2-2:FOR o=0 TO Z:WRITEH9,c(m, 
n,0):NEXT o,n,m 

8050 FOR m=0 TO f-1:FOR n=0 TO f/2:FOR o=0 TO 2:WRITE#9,K(m, 
n,o):NEXT o,n,m 

8900 CLOSEOUT : RETURN 

10000 FOR n=1 TO f-1:CLS:PRINT “"Journee";n:PRINT:PRINT: PRINT 
FOR m=1 TO f/2:PRINT m; TAR(S5);a#t(k(n,m,1)): TAB(15);at(kn,m 


,2))3 


08 es 


CAMEROUN 


Il est à craindre, comme c'est malheureusement le cas pour la 
plupart des ordinateurs familiaux, que l'essentiel des logiciels 
disponibles pour le CPC 46 ne soit dans une première période 
composé que de jeux. Nous avons essayé de montrer dans cette 
collection de programmes qu'on peut également faire des choses 
plus sérieuses avec un ordinateur et aussi qu'on peut essayer de 


comprendre un peu mieux comment il marche. 


Mais nous n'avons rien contre les jeux et c'est pourquoi nous vous 


fournissons également dans ce recueil un jeu complet de Cameroun. 


Nous avons ici utilisé les capacités du BASIC du CPC. C'est ainsi 
que nous avons créé quatre fenêtres différentes qui permettent un 
affichage très simple des entrées, directement avec les touches 


fléchées. 


Nous espérons que vous connaissez les règles de ce jeu (chacun 
doit essayer avec 5 dés de remplir les 12 conditions prescrites). 
Si ce n'est pas le cas, consultez un livre de règles de jeux ou 
essayez simplement de déduire les règles en jouant plusieurs fois. 
Disons simplement que vous avez 12 tours et que vous devez essayer 
avec 3 lancers de dés chaque fois d'avoir finalement le plus de 


points possibles selon le barème du jeu. 


Le CPC ne lance pas simplement les dés pour vous, il place en 


outre les dés dans un ordre croissant. Vous pouvez sélectionner 


avec la touche COPY et les touches curseur les dés que vous voulez 
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lancer à nouveau. Une fois que vous avez lancé les dés trois fois, 
sélectionnez avec les touches curseur et la touche ENTER la ligne 
du tableau dans laquelle vous voulez finalement placer votre 
résultat (si vous avez beaucoup de 6, dans la ligne des 6). Vous 
verrez d'autre part apparaître chaque fois le nombre global de 
points. 


Voici comment s'effectue le décompte des points: 


de 1 à 6: seuls les dés correspondant au chiffre choisi sont 


comptés 


Brelan: si vous avez un brelan (trois fois le même chiffre), tous 


les dés sont additionnés 


Carré: si vous avez un carré (quatre fois le même chiffre), tous 


les dés sont additionnés 


Quinton: (cinq fois le même chiffre) 50 points 


petite Suite: (au moins 3 dés se suivant) 30 points 


grande Suite: (au moins 4 dés se suivant) 40 points 


Full House: (un brelan et une paire, Ex: 33355) 25 points 


Amusez-vous bien! 
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10 REM Cameroun 

20 REM Programmes Basic pour le CPC464 

50 REM Copyright 1984 DATA BECKER & 

31 Rainer Lueers 

40 INK O,1:INK 1,24:INK 2,24 

99 REM Preparatifs 

60 MODE 1 

70 INPUT "Nombre de joueurs (1 a 4) "; joueurs 

80 IF joueurs<1 OR joueurs>4 THEN GOSUB 2350:G0OT0 460 

90 DIM jeut(joueurs,12),jeul(joueurs,12) 

100 FOR n=1 TO joueurs 

110 PRINT:PRINT “"Joueur";n;":"; 

120 INPUT joueur#(n) 

130 IF LEN(joueur#$(n))>3 THEN joueur#$(n)=LEFT#(joueur#(n),3) 
140 IF LEN(joueur#$(n))=2 THEN joueur#$(n)=joueur$(n)+" " 

150 IF LEN(joueur#$(n))=1 THEN joueur$(n)=joueur$(n)+" " 

160 IF LEN(joueur$(n))=0 THEN GOSUB 2350:RUN 

170 NEXT n 

180 MODE 1 

190 REM Fenetre pour le jet des des 

200 WINDOW #1,8,32,1,6 

210 REM Fenetre pour tableau resultats 

220 WINDOW #2,2,40,7,22 

230 REM Fenetre pour informations 

240 WINDOW #3,1,40,24,24 

250 REM Fenetre pour choix par rapport 

251 ” au tableau 

260 WINDOW #4,1,1,9,21 

270 REM Fixation des couleurs 

280 PAPER #4,2:PEN #4,0:CLS #4: PAPER #3,2:PEN #3,0:CLS #4:CL 
S #3: PAPER #1,2:PEN #1,0:CLS #1: PAPER #2,0:PEN #2,1:CLS #2:L 
OCATE #4,1,13:PRINT #4,CHR$# (1435); 

290 REM Construction du tableau 

300 PRINT#2,"Nom du joueur —-> “:2:FOR n=1 TO joueurs:PRINT#2 
joueur #(n);" "s2:NEXT n:PRINTH#2:PRINTH2: PRINT#2,"1 ———-———— 
"2 PRINT #2,"2 ———————————— Ms PRINTH2,"S ———————————— “2PRI 
NTH2,"4 ——————— "sPRINT #2,"5 ———————————— “"zPRINT#2,"6 — 
310 PRINT#2,"Brelan —------- "2:PRINT#2,"Carre -------—- "2: PRINT# 
2,"Quinton —------ ":PRINT #2,"petite Suite -":PRINT #2,"grand 
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e Suite -":PRINT #2,"Full House ---":PRINT #2,STRING#$(36,"=" 
):PRINT #2,"Points ------- “ 


320 
s21 
330 
3540 
350 


REM Lecture de la forme des des 

: en lignes de DATA 

RESTORE:FOR n=1 TO 6:FOR m=1 TO 3 

READ af$(n,m):NEXT m,n 

REM Debut du programme principal: 
Jeu en 12 tours 

FOR ronde=1 TO 12 

FOR rondei=1i TO joueurs 

CLS #5 

LOCATE #35,8,1:PRINT #3,"C'est le tour de "joueur$(rondeli 

Tour ";ronde 

REM Produire 5 nombres aleatoires 
entre 1 et 6 

FOR n=1 TO 5 

RANDOMIZE TIME 

a=INT (10%(RND(TIME))) 

IF a<1 OR a>6 THEN GOTO 420 

nombre (n) =a 

REM Representation des des 
correspondants 

FOR m=2 TO 4 

LOCATE #1,n*x5-3,m 

PRINT #1,at(a,m-—-1); 

NEXT m:NEXT n 

REM Saut a la routine de tri des des 

GOSUB 950 

REM Chaque joueur a droit a 
trois lancers par tour 

FOR compteur=1 TO 2 

REM Saut a la routine de 
modification 

GOSUB 820 

CLS #1 

FOR n=1i TO 5 

REM Produire 5 nombres aleatoires 
entre 1 et 6 

IF waln)=1 THEN RANDOMIZE TIME:a=INT(10%x(RND(TIME))D):1F 

OR a>6 THEN GOTO 600 ELSE nombre(n)=a ELSE a=nombre(n):6 
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OTO 620 

610 REM Representation des des 

611 correspondants 

620 wa (n)=0 

650 FOR m=2 TO 4 

640 LOCATE #1,n#5-3,m 

650 PRINT #1,at(a,m-—-1); 

660 NEXT m 

670 NEXT n 

680 REM Saut a la routine de tri des des 

690 GOSUR 950 

700 NEXT compteur : compteur =0 

710 REM Que faut-il faire du resultat 7? 

720 GOSUB 1420 

730 NEXT rondel ,ronde 

740 REM Fin du Jeu et question: 

741 : Une autre partie 7? 

750 at=-INKEY# 

760 IF a$="" THEN GOTO 750 

770 CLS 

780 INPUT "Une autre partie ( /N) ";a# 

790 a$=UPPER# (at) 

800 IF LEFT#(at,1)="N" THEN END ELSE RUN 

810 RKEM Routine de modification 

820 LOCATE #1,2,5:PRINT #1,CHR# (244); 

830 at=INKEY# 

840 IF a$="" THEN GOTO 8350 

850 REM Touche avec fleche ‘gauche’ 

851 enfoncee 

860 IF a$-CHR#(242) AND POS(#1)>4 THEN LOCATE #1,POS(#1)-1,5 
: PRINT #1," "“;:LOCATE #1,P0S(#1)-6,S5:PRINT #1,CHR$# (244); :GOT 
0 830 

870 REM Touche avec fleche ‘droite’ 

871 enfoncee 

880 IF a$=-CHR#$(243) AND POS(#1)<24 THEN LOCATE #1,POS(#1)-1, 
S: PRINT #1," "3; :LOCATE #1,PO0S(#1)+4,5:PRINT #1,CHR# (244) ;:G0 
TO 830 

890 REM Touche COPY enfoncee 

891 (effet: inversion affichage) 


900 IF a+<>CHR#(224) THEN GOTO 920 ELSE IF wa((P0OS(#1)+1)/5) 
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=1 THEN waC(POS(#1)/+1)/5)=O: PEN #1,2:LOCATE #1,POS(#1)-1,1: 


PRINT #1," “;:PEN #1,0:LOCATE #1,P0S(#1),5 ELSE wa((POS(#1)+ 
1)/5)=1:LOCATE #1,POS(#1)-1,1:PRINT #1,CHR# (245) ; :LOCATE #1, 
POS (#1),5 


910 REM Touche <ENTER> enfoncee 

920 IF at=CHR#(13) THEN RETURN 

920 GOTO 830 

940 REM Routines de tri des des 

950 FOR nn=1 TO 5 

960 z2(nn)=7 

970 NEXT nn 

980 FOR nn=1 TO 5 

990 FOR mm=i TO 5 

1000 IF nombre (mm)<=z2(nn) THEN 22 (nn) =nombre (mm) : z 1 (nn) =wa( 
mm) : mar que=mm 

1010 NEXT mm 

1020 nombre (mar que) =7 

1030 NEXT nn 

1040 FOR nn=1 T0 5 

1050 nombre(nn)=z2(nn) 

1060 wa(nn)=z1(nn) 

1070 NEXT nn 

1080 CLS #1 

1090 FOR nn=1 TO 5 

1100 FOR mm=2 TO 4 

1110 LOCATE #1,nnx5-3,mm:PRINT #1,a$ (nombre (nn) ,mm-1); 
1120 NEXT mm 

1130 NEXT nn 

1140 LOCATE #1,1,6: PRINT #1,STRING#(8,CHR#(143));" Lancer ";c 
ompteur +1; STRING#(7,CHR#(143)); 

1150 RETURN 

1160 REM Forme des differentes faces 


1161 de de 

1170 REM Face de de 1 
1180 DATA " “ 

1190 DATA " O “ 

1200 DATA " ” 

1210 REM Face de de 2 
1220 DATA “ O0" 

1230 DATA " L 
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1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1450 


DATA "O "“ 


de 


(e] 


valeurs du tableau 


REM Face de 
DATA “ O0" 
DATA " O “ 
DATA “O 
REM Face de 
DATA "“O O" 
DATA " 
DATA "O 0" 
REM Face de 
DATA “O 0" 
DATA “ O " 
DATA "“O O0" 
REM Face de 
DATA "“O00" 
DATA “ 
DATA “O00" 
CLS #4 
LOCATE #4,1, 


15 


1440 PRINT #4,CHR# (143); 


1450 


LOCATE #4,1, 


1 


1460 PRINT #4,CHR$# (243); 


1470 
1480 
1490 
1491 
1500 
4)-1 
1510 


a$=INKEY# 


IF a$="" THEN GOTO 1470 


REM Touche avec fleche ‘bas’ 


enfoncee 
IF a$=CHR$(241) 
ELSE GOTO 1550 


PRINT #4," 


AND VPOS(#4)<13 THEN LOCATE #4,1,VPOS (# 


1520 LOCATE #4,1,VPOS (#4) 
PRINT #4,CHR$# (243); 


1530 
1540 
1541 
1550 


REM Touche avec fleche ‘haut 


enfoncee 


IF a$-=CHR$ (240) 


)-1 ELSE GOTO 1600 


1560 


PRINT #4," 


AND VPOS(#4)>2 THEN LOCATE #4,1,VPOS (#4 


1570 LOCATE #4,1,VPOS (#4) -2 
1580 PRINT #4,CHR# (243); 
1590 REM Touche <ENTER}> enfoncee. 
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1591 Si valeur pas encore 


1592 ‘ enregistree, elle doit etre 
1593 ‘ rangee et le nombre de points 
1594 est calcule avec un 

1595." sous-programme 


1600 IF a$t=CHR#(17) THEN IF jeui (rondel,VPOS(#4)-1)<2>1 THEN 
Jeul (rondel,VFOS(#4)-1)=1:GOSUR 1820 ELSE GOTO 1470 ELSE GOT 
0 1470 

1610 Jeu(rondei ,ronde)=resultat 

1620 CLS #Z 

1670 LOCATE #3,9,1 

1640 PRINT #35,"Joueur “; joueur # (rondel1);":";resultat;"points 


1650 REM Inscription du resultat dans 
16517" le tableau 

1660 LOCATE #2,14+ronde1lx5,VPOS(#4)+1 
1670 PRINT #2,resultat; 

1680 LOCATE #2,14+ronde1*x5,16 

1690 FOR n=1 TO 12 

1/00 resultatfin(rondel)-=resultatfin(rondel)+jeu(rondeli,n) 
1710 NEXT n 

1720 PRINT #2,resultatfin(rondei); 
17:20 resultatfin(rondel)=0 

1740 a$=INFEY# 

1750 IF at="" THEN GOTO 1740 

1760 CLS #1 

1770 CLS #4 

1780 LOCATE #4,1,135 

1790 FRINT #4,CHR#(143); 

1800 CLS #3 

1810 RETURN 

1820 resultat=0 

1850 REM Sous-programmes de calcul du 
18:31 nombre de points obtenus 
1840 ON VPFOS(#4)-1 GOSUB 1870,1920,1970,2020,2070,2170,2170, 
2200,223:0,2260,2300,23530 

1850 RETURN 

1860 REM Compter les 1 

1861 (Addition de tous les 1) 
1870 FOR n=1 TO 5 
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1880 


IF nombre(n)=1 THEN resultat-=-resultat+i 


1890 NEXT n 

1900 RETURN 

1910 REM Compter les 2 

1911 (Addition de tous les 2) 

1920 FOR n=1 TO 5 

1930 IF nombre(n)=2 THEN resultat=resultat+2 
1940 NEXT n 

1950 RETURN 

1960 REM Compter les 3 

1961 (Addition de tous les 3) 

1970 FOR n=1i TO 5 

1980 IF nombre(n)=3 THEN resultat=resultat+s 
1990 NEXT n 

2000 RETURN 

2010 REM Compter les 4 

2011 (Addition de tous les 4) 

2020 FOR n=i TO 5 

2050 IF nombre(n)=4 THEN resultat=resultat+4 
2040 NEXT n 

2050 RETURN 

2060 REM Compter les 5 

2061 (Addition de tous les 5) 

2070 FOR n=1 TO 5 

2080 IF nombre(n)=5 THEN resultat=resultat+s 
2090 NEXT n 

2100 RETURN 

2110 REM Compter les 6 

2111 (Addition de tous les 6) 

2120 FOR n=1 TO 5 

2150 IF nombre(n)=6 THEN resultat=resultat+6 
2140 NEXT n 

2150 RETURN 

2160 REM Test du brelan; 

2161 Si brelan, points de tous les 
2162 des 

2170 IF (nombre(i)=nombre(2) AND nombre(2)=nombre(3)) OR (no 
mbre(2)=nombre(3) AND nombre(3)=nombre(4)) OR (nombre(:5)=nom 


bre(4) AND nombre(4)=nombre(S)) THEN FOR n=1 TO S:resultat=r 


esultat+nombre(n):NEXT n 
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2180 RETURN 

2190 REM Test du éarre; 

2200 IF (nombre(1)=nombre(2) AND nombre(2)=nombre(3) AND nom 
bre(3)=nombre(4)) OR (nombre(2)=nombre(3) AND nombre (3) =nomb 
re(4) AND nombre(4)=nombre(S)) THEN FOR n=1 TO S:resultat=re 
sultat+nombre(n):NEXT n 

2210 RETURN 

2220 REM Test du quinton; 

2221 ‘ Quinton => SO points 

2250 IF nombre(1)=nombre(2) AND nombre(2)=nombre(3) AND nomb 
re(3)=nombre(4) AND nombre(4)=nombre(S) THEN resultat=50 
2240 RETURN 

2250 REM Test de la petite suite; 

2251 Petite suite=50 points 

2260 IF nombre(1)=nombre(2)-1 AND nombre(2)=nombre(3)-1 THEN 
resultat=350 

2262 IF nombre(2)=nombre(3)-1 AND nombre(3)=nombre(4)-1 THEN 
resultat=350 

2264 IF nombre(3)=nombre(4)-1 AND nombre (4)=nombre(5)-1 THEN 
resultat=30 

2266 IF nombre(1)=nombre(4)-1 AND nombre(2)=nombre(5)-1 THEN 
resultat=350 

2270 IF nombre(2)=nombre(4)-1 AND nombre(4)=nombre(5)-1 THEN 
resultat=30 

2280 RETURN 

2290 REM Test de la grande suite; 

2291 ‘ Grande suite=40 points 

2300 IF nombre(1)=nombre(2)-1 AND nombre (2)=nombre(3)-1 AND 

nombre (3) =nombre(4)-1 THEN resultat=40 

2305 IF nombre(2)=nombre(5)-1 AND nombre(3)=nombre(4)-1 AND 

nombre (4)=nombre(S)-1 THEN resultat=40 

23507 IF nombre(1)=nombre(3)-1 AND nombre(3)=nombre(4)-1 AND 

nombre (4)=nombre(5)-1 THEN resultat=40 

2310 RETURN 

2320 REM Test Full House; 


3 


27 
S 


N 


RSS Full House = 25 Points 


h 


2330 IF (nombre(1)=nombre(2) AND nombre(3)=nombre(4) AND nom 
bre(4)=nombre(5)) OR (nombre(1)=nombre(2) AND nombre(2)=nomb 
re(3) AND nombre(4)=nombre(S5)) THEN resultat=25 

2340 RETURN 
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350 a$=INKEY#:1F a$="" THEN GOTO 2350 ELSE PRINT ASC (a#$):60 
TO 2550 
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Décodeur 





Ce jeu existe en de nombreuses versions, par exemple sous le nom 


de Metemind. 


Nous avons préféré le nom de Décodeur parce que notre programme 


s'éloigne malgré tout notablement de ses modèles. 


Vous pouvez tout d'abord choisir parmi combien de nombres-couleurs 
l'ordinateur pourra sélectionner les nombres-couleurs dont doit se 


composer le code. Vous disposez d'un maximum de 8 codes-couleurs. 


Vous devez ensuite faire un second choix: de combien d'éléments le 
code doit-il être composé? Il peut y avoir plus de nombres- 


couleurs que d'éléments du code mais pas le contraire. 


L'écran affiche après chaque entrée combien de couleurs sont 
justes et se trouvent effectivement dans le code mais aussi 
combien de couleurs justes ont été également placées à la bonne 
place. Les débutants en Décodeur auront certainement du mal mais 
c'est en forgeant qu'on devient forgeron. Vous pouvez à tout 
moment consulter la liste de vos entrées en appuyant sur la touche 


ENTER. 


Nous vous souhaitons maintenant de bien vous amuser avec ce jeu. 
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10 REM Sport cerebral 

20 REM Programmes Basic pour le CPC464 

30 REM Copyright 1984 DATA BECKER & 

31 Rainer Lueers 

40 REM Preparatifs et dimensionnements 

50 DIM marque$ (100) ,noir (100) ,blanc (100) 

60 PAPER O:PEN 1:MODE 1 

70 INPUT"Nombre de couleurs (1 a 8) ":;:f# 

80 IF VAL(f#)<1 OR VAL(#$#)>8 THEN GOSUB 460:GOTO 70 
90 INPUT'"Nombre de chiffres (1 a 8) "“:f1# 

100 IF VAL(f1#)<1 OR VAL(f1#$)>8 THEN GOSUB 460:GO0TO 90 
110 IF VAL(#f1#)>VAL(f#) THEN GOSUB 460:GOT0 90 
120 REM Choix des nombres par la 

121 fonction de hasard RND 

130 FOR n=1 TO VAL(#1#) 

140 a=INT (10#RND (TIME) ) 

150 IF a<i OR a>VAL(f#$) THEN GOTO 140 

160 REM Tous les nombres choisis 

161 doivent etre differents 

170 FOR m=1 TO n-i 

180 am)=VAL(MID#(a$,m,1)) 

190 NEXT m 

200 FOR m=1 TO n-1 

210 IF a=a(m) THEN GOTO 140 ELSE NEXT m 

220 at=a$+RIGHT#(STRS# (a) ,1) 

230 NEXT n 

240 FOR n=1 TO VAL(f1#) 

250 a(n)=VAL(MID#+(a$,n,1)) 

260 NEXT n 

270 CLS 

280 REM Routine d'entree 

290 PRINT"Un nombre avec"; VAL(#f1#); "chiffres ";:INPUT f35# 


300 REM Listage de tous les nombres qui 


301 ont ete entres jusqu'ici 
310 IF f3#="" THEN CLS:FOR z1=1 TO z:PRINT"Tentative"zi;TAB( 
8) ;marque#(z1):" OK:";noir (z1):" pas OK:";blanc(zi1):NEXT 


z1:PRINT:GOTO 290 ELSE IF LEN(fF3#)<>VAL(#f1#) THEN GOSUB 460 
:GOTO 290 

320 FOR n=1 TO VAL(f1#) 

330 b(n)=VAL(MID#(F3#,n,1)) 
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340 IF atn)=b(n) THEN noir=noir+i:c{(n)=-1 

350 NEXT n 

360 FOR m=1 TO VAL(f1$) 

370 FOR n=1 TO VAL(f1#) 

580 IF aln)=bm) AND n<>m THEN blanc=blanc+1:GO0TO 410 

390 NEXT n 

400 REM Routine de sortie avec controle 

401 de la justesse 

410 NEXT m:PRINT"Couleurs en mauvaise position:";blanc 

420 z=z+1:marquet (z)=f5#$:blanc(z)=blanc:noir (z)=noir:blanc=0 
30 PRINT"Couleurs en bonne position:";noir 

440 IF noir=VAL(f1#) THEN PRINT:PAPER 1:PEN O:PRINT'"Parfaite 

ment exact en";z;"coups";:PAPER O:PEN 1:PRINT:PRINT: INPUT"En 
core une fois (0/ ) "“;:f#:1F UPPER#(LEFT#(f#,1))="0" THEN RUN 
ELSE END ELSE noir=0:GOTO 290 

450 GOTO 290 

460 PRINT:PRINT"Entree incorrecte!":PRINT:RETURN 
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Réflexes 


Nous vous recommandons ce programme si vous voulez essayer de 
a A s 
surprendre votre monde ou même pour le présenter à des personnes 


plutôt hostiles à tout ce qui touche aux ordinateurs. 


Le but de ce programme est uniquement de mesurer le temps de 
réaction: il faut appuyer sur une touche quelconque du clavier dès 
que l'ordinateur vous le demande. Suit alors une évaluation par 
l'ordinateur des réflexes de la personne qui vient de jouer et on 
vous demande alors si vous voulez à nouveau participer à une 


partie avec un maximum de quatre participants. 


Mais l'intérêt principal de ce programme est la façon dont les 
utilisateurs de l'ordinateur sont traités. Les ordinateurs, comme 
vous le savez certainement sont parfaitement stupides, ce sont 
seulement les hommes qui les ont rendus intelligents. C'est ce que 


ce programme a pour but de démontrer aux utilisateurs non-initiés: 


Si vous n'entrez pas de nom au début du programme, le CPC ou 
plutôt notre programme devient grincheux et prévient qu'on va 
casser l'ordinateur à force de faire des erreurs. Mais si les 
utilisateurs font ce qui leur est demandé, l'ordinateur répond 


‘merci!'. 
Pendant le déroulement du jeu, le CPC surveille que personne 


n'essaye de tricher. Si quelqu'un triche, l'ordinateur lance un 


avertissement et une pénalité. 


jade 


Non seulement le temps de réaction est affiché précisément, au 
centième de seconde près, mais le CPC vous dispense également son 
commentaire personnel sur les performances des divers joueurs 


('SUPER'...'très faible'). 


Sur le plan programmation, un jeu d'enfant. Mais ce programme 
pourra peut-être vous servir "d'excuse" auprès de ceux qui vivent 
avec vous en leur faisant peut-être entrevoir l'intérêt de l'achat 
du CPC 64! Qui sait, peut-être pourrez-vous en faire des fanas de 
l'informatique, ce qui serait bien sûr une belle réussite. Ceci 
dit, voici encore une application possible de ce programme: 
essayez de mesurer vos temps de réaction quand vous êtes dans des 


humeurs ou états d'âme différents! 
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10 REM Reaction 

20 REM Programmes Basic pour le CPC464 

30 REM Copyright 1984 DATA BECKER & 

31 | Rainer Lueers 

40 REM PFreparatifs 

SO INK O,0:INK 1,24:PEN 1:PAPER O:MODE 1 

60 INFUT"Combien de participants (1 a 4)";:#f# 

70 IF VAL(f#)<1 OR VAL(f#)>4 THEN GOTO 60 

80 FOR n=1 TO VAL(F#) 

90 PRINT:PRINT"Votre nom, s'il vous plait, joueur";n: INPUT #f 
1#(n) 

100 REM Reaction si entree incorrecte 

110 IF f1#(n)="" AND marque=O THEN PRINT:PRINT'N'ayez pas pe 
ur ! Chaque chose a son nom. 


I1 en va de meme pour les hommes et les betes, 51 j'e 


n crois mes circuits!":marque=1:GOTO 90 
120 IF fi$(n)="" AND marque=1 THEN FRINT:PRINT'"Je suis AMSTR 
AD, mais vous pouvez m'appeler par mon prenom: CPC, a 


condition que vous me donniez votre nom!":marque=2:60 


TO 90 
140 IF f1#$(n)="" AND marque=2 THEN PRINT:PRINT"'Faites attent 
ion: encore une entree incorrecte et l'ordinateur sera h 


.-S'!":marque=3:GOTO 90 

150 IF f1$(n)="" AND marque=3 THEN FOR n=1 TO 10000:PRINT CH 
R+& (PEEK (n)) 3; :NEXT 

160 mar que=0 

170 NEXT n 

180 MODE O:LOCATE 8,12: PRINT'"Merci!" 

190 FOR n=1 TO 2000:NEXT n 

200 MODE 1:FOR n=1 TO VAL(f#) 

210 PRINT f1#(n);"!1!!"2:PRINT:PRINT:PRINT"C'est a vous!":PRI 
NT'"'Frappez une touche du clavier des que vous verrez un ch 
angement de couleur." 

220 REM Calcul de l'intervalle 

250 FOR m=1i TO 2000:NEXT m:a=1000#RND(1):FOR m=1 TO a: a$=INK 
EY$#:1F a$="" THEN NEXT m:GOSUB 280 ELSE MODE O:PRINT"Tricheu 
r'!!!1 Il vous a fallu 5 secondes":f(n)=5:FOR m=1 TO 2000:NEX 
T m:MODE 1 

240 REM Sortir resultat 

250 NEXT n:CLS:FOR n=1 TO VAL($F#):PRINT f1$(n);" a mis";f(n) 
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; "secondes !":PRINT:NEXT n:PRINT: PRINT: INPUT"Encore une parti 
e C /N) "32z#:1F LEFT$ (UPPER$(z#) ,1)="n" THEN END 

260 PRINT: INPUT'"Avec les memes joueurs (0/ ) ";z#:1F LEFT#(U 
PPER$(z#) ,1)="0" THEN GOTO 200 ELSE RUN 


270 REM Sous-programmes de controle 


271 du delai 
280 MODE O:PAPER 1:CLS:b=TIME 
290 a$=INKEY#:1IF a$="" THEN GOTO 290 


300 c=TIME: PAPER O: MODE 1:f(n)=(c-b)/250:PRINT #14#0(n):PRINT" 
Vous avez mis";f(n);"secondes!" 

310 PRINT 

320 REM Evaluation 

330 IF f(n)<0.005 THEN PRINT"'S U P E R":GO0OTO 370 

340 IF f(n)<O.1 THEN PRINT'"Tres bien":GOTO 370 

350 IF f(n)<0.5 THEN PRINT"faible":GOTO 370 

360 PRINT'"Tres tres faible!'":GOTO 370 

370 FOR m=1i TO 2000:NEXT m:CLS:RETURN 
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Conversion numérique 


Le CPC n'affiche pas les nombres uniquement selon le système 
décimal qui nous est si familier puisqu'il dispose également 
d'instructions spéciales permettant de convertir les nombres dans 
d'autres systèmes décimaux: &H placé avant un nombre indique qu'il 
s'agit d'un nombre hexadécimal, &X qu'il s'agit d'un nombre 


binaire. 


Entrez par exemple PRINT &HFF et vous obtiendrez la conversion en 


décimal de ce nombre hexadécimal: 255. 


Si vous entrez maintenant PRINT &X111, vous obtiendrez la 


conversion en décimal de ce nombre binaire: 7. 


Les difficultés commencent quand vous essayez de convertir 
directement un nombre hexadécimal en un nombre binaire. Il est 
mème tout à fait impossible de travailler avec un système 
numérique existant autre que les systèmes hexadécimal, décimal ou 


binaire. 


Nous avons donc réalisé ce programme pour vous permettre de vous 
familiariser avec les systèmes numériques. Vous pouvez convertir 
tout nombre que vous entrez dans chacun des trois systèmes en 
faisant précéder le nombre entré de la lettre H pour hexadécimal, 


B pour binaire, D pour décimal. 


Vous pouvez en outre en appuyant sur la touche ENTER, faire 


convertir le nombre décimal que vous venez d'entrer en n'importe 
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quel système numérique (base) entre 2 et 9. Cette conversion se 
produit d'un façon fort intéressante puisque l'ordinateur calcule 


devant vous étape par étape le résultat de la conversion. 


Comment celà se déroule-t-i1? Prenons un exemple: comptons dans le 
système numérique de base 5. Appuyez sur la touche ENTER lorsqu'on 
vous demande "Déc., Hex. ou Bin.'. Répondez 5 à la question 
suivante et entrez le nombre 230. Ce nombre converti en base 5 


sera 1410". 


Voyons maintenant comment l'ordinateur est arrivé à ce résultat: 
le système numérique de base 5 comporte les chiffres 0, 1, 2, 3et 
4. Le CPC divise le nombre 230 que vous avez entré par 5. Résultat 
6, reste 0. Il divise ensuite 6 par 5: résultat 9, reste 1. 9 
est à nouveau divisé par 5 car c'est encore un nombre supérieur au 
plus grand chiffre de ce système numérique. Le résultat est 1 avec 
un reste de LH. I1 suffit maintenant de récapituler les valeurs des 


restes: 


1ère division: © 2ème division: 1 3ème division: 
On pourrait effectuer une quatrième division: 1/5 = 0, reste 1. 1 


est donc bien le quatrième reste. 
En plaçant les restes de droite à gauche, nous obtenons bien le 
nombre 1110 comme équivalent en base 5 du nombre décimal (base 10) 


230. En voici d'ailleurs la preuve: 


1) 0#5°0=0 2) 1#5°1=25 3) 4#5°2=100 4) 1#5°3=125 


5) 0 + 5 + 100 + 125 = 230 ! 
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Pour être complet nous 
avec le BASIC du CPC 


conversions directes du 


au système binaire: il 


devons vous préciser qu'il est possible 
d'effectuer, sans notre programme, des 
système décimal au système hexadécimal ou 


faut utiliser pour celà les instructions 


PRINT HEX$( et PRINT BIN$(. Par contre les autres opérations de 


conversion numérique ne sont possibles qu'avec notre programme. 
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10 REM Convertisseur numerique 

20 REM Programmes Basic pour le CPC464 

30 REM Copyright 1984 DATA BECKER & 

31 Rainer Lueers 

40 INK O,1:INK 1,24:INK 2,1,24:effet=2:normal=i 

50 ON ERROR GOTO 410 

60 MODE 1 

70 REM Choix du systeme numerique 

80 INFUT “Entree (Dec. ,Hex ou Bin.) "sa#:1F VAL (a#) >65535 TH 
EN GOTO 80 ELSE IF at="" THEN GOTO 160 ELSE b#=LEFT#(a$,1):b 
$=UPPER# (b#):1F b+="H" THEN GOSUB 310 ELSE IF b+="B" THEN 60 
SUR 260 ELSE IF b+$="D" THEN a$=RIGHT#(a#$,LEN(a#)-—1) 


90 REM Calcul des nombres decimaux, 


91 binaires et hexadecimaux pour 

Q2 la sortie sur ecran 

100 PRINT:PRINT "“decimal binaire hexadecimal" 
110 PRINT = — # 


120 PRINT at; TAR(9)3" "3 
150 b#$-HRINE (VAL (a#) ,16): PRINT LEFT#(b#,8)3" "sRIGHT#(b#,8):;" 


140 PRINT TAB(22) ;HEX# (VAL (a#) ,4) 

150 PRINT:FRINT:GO0OTO 80 

160 MODE 1 

170 REM Choix d'un systeme numerique 

L71: * de la base 2 a la base 9 

180 INPUT "Quel systeme numerique (2 a 9) ";a 

190 IF a=0 THEN RUN ELSE IF a? OR aï9 THEN GOSUR 440:GO0OT0 1 
60 

200 CLS:FRINT "Conversion DEC. — base";a:PRINT "=======-==zz 


210 REM Calcul des nombres dans le 

211: systeme numerique choisi (2 a 9) 

220 INPUT "Votre entree (DEC.) "3b:1F b>22767 THEN GOSUE 440 
:GOTO 160 ELSE FKINT 

230 c=bça 

240 FRINT "Nombre:";c; 

250 d=b MOD a 

260 FRINT TAKH(15) 3; "MOD: ";d 

270 a$=RIGHTE(STRE (d) ,1)+a# 

280 IF ca THEN at=STR#(c)+at: PRINT:PRINT at: at="":PRINT:PRI 
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NT:FRINT:GOTO 180 

290 b=c:GOTO 250 

300 REM Controler et convertir le 
nombre hexadecimal entre 


IF LEN(a#)?S5 THEN RETURN 





220 b#E="8Sh "4MIDE(a#t,2,LEN(a#) —-1) 

230 IF VAL(b#)£O THEN a#t=STR#(VAL(b#)+65536) ELSE a+=STR+t(VA 
L(b#)) 

340 RETURN 





290 REM Controler et convertir le 

SOL à nombre binaire entre 

260 IF LENCa#)>17 THEN RETURN 

270 DE="8x "AHMIDE(at,2,LENC(a#)-1) 

280 IF VAL(b#+)<0 THEN a#t=STR#(VAL(b#)+65536) ELSE at=STR#(VA 
L(b#)) 





290 RETURN 

400 REM Routine de traitement des 

401 erreurs 

410 RESUME 420 

420 RUN 

40 END 

440 PEN effet:PFRINT:PRINT TAH(12) "Entree incorrecte!" 
450 FEN normal :GOSUR 460:RETURN 

460 PRINT:FRINT TAR(7) "<Appuyez sur une touche 5.V.P.5" 
470 f#H=INKEY#:IF f#="" THEN GOTO 470 

480 RETURN 
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Désassembleur 





Les programmes Mémoire 1 à 5 ainsi que le programme de références 
des variables nous ont déjà permis de pénétrer un peu dans les 
"secrets internes" du CPC. Par secrets internes nous voulons dire: 
comment celà se passe-t-il quand un être inhumain tel que 
l'ordinateur arrive à penser. N'oubliez jamais à cet égard qu'un 
ordinateur ne peut jamais être plus intelligent qu'il n'a été 


programmé. 


Les programmes Mémoire 1 à 5 ne nous ont cependant pas permis de 
rentrer suffisamment à l'intérieur de notre CPC. Nous n'avons en 
effet pu qu'examiner comment nos programmes BASIC sont stockés 
ligne par ligne, instruction par instruction dans la mémoire de 
l'ordinateur. Mais nous n'avons pas réussi à savoir comment 
l'ordinateur traite ces instructions. Nous avons notamment indiqué 
à cette occasion que le CPC, comme tout autre ordinateur ramène 
tout à l'alternative la plus simple, éteint ou allumé, oui ou non, 
0 ou 1. C'est en effet seulement à partir d'une suite de O et de 1 
que l'ordinateur arrive à reconnaître un caractère ou une 


instruction. 


Notre BASIC est un langage de programmation évolué: il est en 
effet structuré en un nombre important de mots intelligibles 
(surtout quand on comprend l'anglais). Ces instructions nous 
permettent d'avoir beaucoup plus facilement une idée de ce que 
peut faire l'ordinateur que si nous ne pouvions entrer que des 0 


et des 1 dans notre ordinateur. 
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Le code assembleur auquel s'attaque ce programme constitue une 
étape intermédiaire entre le BASIC et le langage binaire de la 
machine. Nous disposons ici d'u nombre encore plus grand 
d'instructions (le processeur Z80A du CPC possède plus de 600 
instructions) mais ces instructions sont très loin d'être aussi 
puissantes que les instructions BASIC. Ces instructions occupent 
1, 2 ou 3 octets en mémoire. Le programme 'Désassembleur' connait 
tous les codes assembleur du Z80A (ces codes sont aussi appelés 
mnémoniques) et il recherche dans la zone que nous voulons quels 
codes il rencontre. Il recherche pour celà s'il rencontre des 
suites de valeurs déterminées (de même que notre programme Mémoire 
recherchait le mot ‘Examen'). S'il rencontre ces suites de 


nombres, il écrit le code assembleur correspondant sur l'écran. 


Comme nous ne pensons pas que vous allez vous mettre à écrire du 
jour au lendemain un grand nombre de programmes en langage- 
machine, nous avons intégré une fonction pédagogique dans notre 
‘Désassembleur': la ligne 3530 contient en effet une instruction 
DATA suivie de nombres hexadécimaux qui constituent un petit 
programme en langage-machine. Ce programme calcule le résultat de 
deux nombres et le place dans un adresse déterminée. Vous pouvez 
regarder comment ces nombres se transforment en un programme 
assembleur en répondant, une fois le programme lancé, à toutes les 


questions en appuyant simplement sur la touche ENTER. 


Vous pouvez aussi écrire d'autres nombres (uniquement en format 
hexadécimal!) dans cette ligne DATA, par exemple si vous trouvez 
dans une revue d'informatique un long programme en langage-machine 
pour le processeur Z80A. Vous pouvez d'ailleurs écrire plusieurs 


lignes de DATA si nécessaire. Amusez-vous bien! 
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10 KEM Desassembleur 

20 REM Frogrammes Basic pour le CFC464 
30 REM Copyright 1984 DATA HECKHER & 

SE Rainer Lueers 

40 CLEAR 


50 REM Liberer la zone memoire a partir 


St: Ÿ de 42001 pour des routines 
92 ‘ en langage-machine 


69 MEMORY 42000:GOSUR 3450 

70 DIM 1#(299) ,b1 (255) :n=0:m=0:sy=1 

80 GOTO 1280 

90 MODE ?:c=O0:PRINT TAR(20)"# # x Desassembleur Z-80 x x x" 
100 REM Determiner les souhaits de 

101 l'utilisateur 

110 FRINT:INFUT "Titre "3f4# 

120 IF LEN(##)>80 THEN GOTO 110 

150 PRINT 

140 REM Adresse de depart de la routine 

141 en langage-machine stockee 

142 en lignes DATA 

150 INPUT "Adresse de depart (en dec.) "s;a:iF af0 OR aï65525 
THEN GOTO 130 ELSE IF a=0 THEN a=42001 

160 INPUT "Adresse de fin (en dec.) "sb 

170 IF b£e OK b OR b<O THEN GOTO 160 ELSE IF b=0 THEN 





b-compteur 1 

180 PRINT:INPUT "Y a-t-1l des zones de donnees (0/7 ) "3;v# 
190 V#=LEFT+CUPFERE(V#) ,1)21F v#="O" THEN GOSUR 2140 

200 PRINT: INPUT "Imprimante où Ecran (I/E) "5b# 


210 REM Determination de la variable 


214 ” drubi qui fixe le type de sortie 
212)" avec PRINT: 
213 8-> imprimante, O-> ecran 


220 b+=LEFT+(UPPERE(b#) ,1)2:1F b+t="1" THEN drubi=8 ELSE drubi 


230 PRINT #drubi 

240 REM Titre apparaissant en milieu 

241 de ligne 

250 PRINT #drubi,TAB((BO-LENCF#))/2-5)$# 
260 PRINT #drubi 

270 REM Debut du desassembleur 
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271 * proprement dit. Lecture 


LIRE" de la zone de la memoire 

275 indiquee et interpretation des 
274." donnees en mnemoni ques 

272 d'instructions en langage-mach. 
280 q=a 


290 h1=INT(a/4096) :h2=INT((a-h1x4096) /256) 

300 11=INT((a-h1#4096-h2#256) /16) 

310 12=a-h1#4096-h2#256-11+#16 

220 IF m£>O THEN GOTO Z40 

350 GOTO :90 

340 IF aï=a(n) AND a=b(n) THEN GOTO 360 

350 GOTO 3:90 

260 d=FEEK (a) :GOSUR 3380:fh#="":#f1#4="":gh#t="":gl#$-"":t#-1#0(d 
):1+#(d)="DATA" 

270 IF a=b(n) THEN n=n+i:m=m-1:GOTO 400 

380 GOTO 400 

290 d=FEEK (a) : GOSUB 650 

400 v=d:G6GOSUR 2740 

410 dh#=h#:d1#=1# 

A20 IF h15-10 THEN GOTO 5460 

450 hI#=STRECh1)2h1#-MID#(h1#,2,1) 

440 IF h2>:=10 THEN G60OTO 570 

490 h2#=STR#Ch2) 2h2#-MID# (h?2#,2,1) 

460 IF 11>=10 THEN GOTO 580 

470 11#=STR#(11):11#-MID#(11#,2,1) 

480 IF 12>-=10 THEN GOTD 590 

490 12#=STR#+(12):12#-MID#(12#,2,1) 

500 KEM Sortie de la zone de la memoire 

o01 desassemblee 

910 qt=qt+1:iF qt>105 THEN qgt-O:FOR qi=1 TO 9:PRINT #drubi:N 
EXT qgi:GOSUR 2400:sy=sy+1:PRINT #drubi,TAR(Z0) "Fage'":;sy:PRI 
NT #Hdrubi:GOTO 510 ELSE PRINT #drubi,g;LEN(dht+dl$+ehttel+t+f 
ht+f1#t+gh#t+g14#)/2;"Octets"; TARH(18); 

520 FRINT #drubi ,USING " NIUUMEU M h1#,h2#,11#,12#;:PRINT 

#drubi," "3: PRINT #drubi ,USING "'tritirirnmsn tt, dh#, 
dit,eht.,el#,fh#,f1#,gh#,gl#t;:PRINT #drubi,TAB(50O)31#(d) 

SO a=a+i:c=c+1:1F aï=b+1 THEN GOTO 600 

340 IF gh#="T" THEN i#(d)=t# 

550 GOTO 280 
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360 
570 
580 
590 
600 
610 
20 
b#) 
6850 
640 
650 
660 
670 
680 
690 
700 
710 
720 
7350 
740 
750 
760 
770 
780 
790 
800 
810 
820 
820 


840 


900 
910 
920 
9:20 
940 


x=h1-10+65:h1#=CHR# (x) : GOTO 440 
x=h2-10+65:h2#=CHR# (x) : GOTO 460 
X=11—-10+65:11#=CHR# (x) : GOTO 480 
X=12-10+65:12#=CHR# (x) : GOTO 510 


PRINT: PRINT "x x 


Sortie terminee 


REM Demander s'il faut recommencer 


PRINT: INPUT 


,1) 


IF b#-"O" THEN R 


END 


UN 


“Encore une fois (0/ ) 


IF d<64 OR d>127 THEN GOTO 710 


IF d=118 THEN RETURN 


dh=INT(d/16):d1=d-dh#1é6 
g=d1l AND 7:f=((d AND 56)/8) 


1$#(d)="LD 


M4 jECF)+" 


1+(d)=1#(d)+3#(g):GOSUB 3380:RETURN 
IF d‘128 OR d>191 THEN GOTO 830 
dh=INT(d/16):d1=d-(dh#x16) 


g=dl AND 7:f=((d AND 120)/8) 


IF f-0 
IF f=1 
IF 


N 


Il 


f 
f 
IF f 
IF 
f 

f 


Il 


Il 
2 


1F 
IF 
IF f=7 


Il 
an 


IF bl(d)=2 
IF bl(d)=z 
IF b1 (d)=4 


THEN i#(d)="ADD A," 
THEN i#(d)="ADC A," 
THEN 1#(d)="SUR U 

THEN i14(d)="SBC A," 


THEN 14(d)="AND " 

THEN 1#(d)="X0R J 

THEN i4#(d)="0R # 

THEN 1#(d)="CP 
1+(d)=1#(d)+;#(g):GOSUR 3380:RETURN 
IF bl(d)=1 THEN GOTO 880 


THEN GOTO 890 
THEN GOTO 900 
THEN GOTO 1770 


IF d=2?1 OR d=253 THEN GOTO 2220 
GOSUR 3:380:RETURN 
a=ati:z-FEEK(a):GOTO 910 


a=at+1i:z=PEEK (a): 


v=Zz : GOSUR 


a=at+i:z1=-PEEK (a) 


2740:eh#=h#t:el#+=1# 


IF bl(d)=3 THEN GOTO 940 


GOSUE 





590: GOTO 


950 


v=zi1:GOSUR 2740:fh#=-h#:#f1#=1# 
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x +" 


“sb#:b#$=LEFT+ (UPPERS ( 


9350 


pit=fh#$+fl#$+reh$tel#$:p2#-eh$ttel#:gh#$="":gl#-="" 


960 f=d AND 7:g=d AND 56:g=g/8 

970 IF f=6 AND (d AND 192)=-0 THEN GOTO 1230 
980 IF f=2 AND (d AND 192)=192 THEN GOTO 1260 
990 IF f=4 THEN GOTO 1270 

1000 IF f=0 AND (g<>2) THEN GOTO 1240 

1010 i$(33)="LD HL ,"+p1# 

1020 i+(34)="LD C+p1#+") ,HL" 

1030 i+(50)="LD C"+p1#+") ,A" 

1040 i+(205)="CALL "+pi$ 

1050 1#(195)="JP “+p1# 

1060 i+(58)="LD A, C“+pit+")" 

1070 i+(254)="CP "+p2# 

1080 i+(42)="LD HL, C“+pi$+")" 

1090 i$(49)="LD SP ,"+p1# 

1100 i$(17)="LD DE ,"+p1# 

1110 i+(16)="DIJNZ “"+p2#5 

1120 i#t(1)="LD BC, "+p1# 

1130 i+(198)="ADD A,"+p2# 

1140 i+(206)="ADC A,"+p2# 

1150 i#(211)="OUT "4+p2#+",A" 

1160 i+(214)=-"SUB "+p24 

1170 i#(219)="IN A,"+p2# 

1180 i+(222) -"SBC A,"+p2# 

1190 1#(230)="AND "+p2# 

1200 i+(238)="XOR "+p2# 

1210 i#(246)="OR "+p2# 

1220 RETURN 

1220 i$(d)="LD "4+#(g)+","+p2#: RETURN 
1240 IF g=3 THEN i#(d)="JR "+p2#: RETURN 
1250 g=g-4:i#(d)="JR "454 (g)+","4+p2#: RETURN 
1260 i+(d)="JP "+st(g)+","+p1#: RETURN 
1270 i+(d)="CALL "+s$(g)+","+p1#: RETURN 
1280 FOR s=0 TO 63:bl(S)=1:NEXT 5 

1290 FOR 5=192 TO 255:bl(s)=1:NEXT s 


1:00 b1(118)=1:b1 (6)=2:b1(14)=2:b1(16)=2:b1l 

1(20)=2:b1 (32)=2:b1 (28) =2:b1 (40)=2:b1 (46)=2:b1 (48) =2:b1l (54) = 
2:b1 (56) =2 

1310 b1(62)=2:b1 (198) =2:b1 (206)=2:b1 (211)=-2:b1 (214)=2:b1 (219 


)=2:b1 (222)=2:b1 (250) =2:b1 (238) =2:b1 (246) =2:b1 (254) =2 
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1520 b1(1)=3:b1(17)=53:b1 (3353)=5:b1 (34)=3:b1 (42)=3:b1 (49)=3:bl]l 
(50) =5:b1 (58)=3:b1 (194)=53:b1 (195)=3:b1 (196) =3:b1 (202)=3:bl1 (2 
04)=2:b1 (205) =3:b1 (210)=3:b1 (212)=3:b1 (218) =3:b1 (220 
1550 b1 (226) =3:b1 (228) =3:b1 (234) =Z:b1 (236) =5%:b1 (242) =53:bl (24 
)=3:b1 (250)=3:b1 (252) =3:b1 (203)=3:b1 (237)=5:b1 (221)=-0:b1 (25 
)=5 

1240 j#(0)="B":3#$(1)="C"3: 5#(2)="D": 3H (3) ="E": j#(4)="H": j# (5) 
="L" 


ni 
(A 


2 


(A 


Il 


1:50 j3#(6)="(HL) "=: 3#(07)="A" 
1:60 Ss#(O0)="NZ":s#(1)="7Z":s#(2)="NC":s#(3)="C":s#(4)="PO":S$ 
(5) ="PE":sS#$(6)="P":s+#(7)="M" 





1:70 p+(0)="SBC HL,":p# (1) ="ADC HL, 
1:80 p$(2)="SBC HL ,":p# (3) ="ADC HL, 
1390 p+(4)="SRC HL ,"2p#(5)="ADC HL, 
1400 p#(7)="ADC HL,"2n#(0)="BC":n# (1) ="EC":n# (2) ="DE" 


1410 n#t(2)="DE":n#(4)="HLtinE(S)="HL "int (7) ="SP" 

1420 1#(0)="N":1#(1)="1"2:m#(0)="O0":mE#(2)="1":m#Cz)="2" 
1450 O#$(0)="I,A":0#(1)="R,A":0#(2)="A,1":0#$(2)="A,R" 
1440 q$t(0) ="LD": q#$ (1) ="CP" 3: q$ (2) ="IN": q# (CZ) ="OUT" 


1450 1#(0)="NOF":14# (2) ="LD CRC) ,A"2:1#0(3)="INC EH 
C" 
1460 1#(/7)="RLC A":1#4(8)="EX AF,AF"" 
1470 1#(9)-"ADD HL,HC"2:14#(10)="LD A, (HC)" 
1480 1#(11)-"DEC BC'":1#(15) ="RKC A" 
1490 1#(18) ="LD (DE) ,A":1#0(19)="INC DE" 
1900 1#4(23:) ="RLA":1# (25) ="ADD HL,DE":1#(26)="LD 
A, (DE) " 
1510 1#(27)="DEC DE":1#0(31)="RKRAî":1# (25) ="INC HL 
1520 1#(39)="DAA":1# (41) ="ADD HL ,HL'":14#(47)="DEC 
HL" 
1550 1#(47)="CPL":1# (51) ="INC SPF":1#(995)="SCF" 
1540 1#(57/7)="ADD HL,SF":1#(59)="DEC SP":1#(63)=" 
CCF" 
19550 1#4(427)="DEC HL" 
1560 1#(192)="RET NZ'":1#(197)="FUSH EC" 
1570 1#(199)="RST O":1#4(200)="RET Z":1#(207)="RS 
T 8" 
1580 1#(208)="RET NC'":1#(209)="FOP DE" 
1590 1#(212)="FUSH DE":1#(215)="RST 10H" 
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1600 1#(216)="RET C'":i#(223)="RST 18H" 





1610 1#(224)="RET FO":i#+(227)="EX (SF) ,HL" 
1620 1#(271)="RST 2OH":1#(232)="RET PE" 
168:0 1#(2 ="JF CHL) ":1#(2235)="EX DE ,HL" 
1640 1#(2379)="RST 28H":i#(240)="RET F3 


1650 14(201)="RET" 








1660 1+(241)="F0F AF'":1#(2435)="DI":1#(245)="FUSH 

RAF" 

1670 1#(247)="RST ZOH":14#(248)="RET M"s:1#(251)=" 
Ex" 

1680 1#(249)="LD SP ,HL"2:1# (255) ="RST 38H" 

1690 1#(197)="FUSH EC" 

1700 1#(193)="FOF BC":1#(229)="PUSH HL" 

1710 1#(225)="FOP HE" 


1720 i#(217)="EXX" 
1720 1#0(118)="HALT" 





1740 1=O0:FOR d=S TO 45 STEF 8:14#0(d)="DEC M4+JECl):1=1+1 
:NEXT d 

1750 1=0:FOR d=4 TO 44 STEF 8:1#(d)="INC "+)#(1):1=1+1 
:NEXT d 

1760 1#(60) ="INC A":1#(61)="DEC A":GOT0 90 

1770 IF d=207 THEN GOTO 1790 

1780 IF d=277 THEN GOTO 2950 


1790 a=ati:z=PEEr (a) 

1800 eh=INT(z/16):el=z-eh#16:g-el AND 7 

1810 f=INT((el AND 8)/8):f=f+(eh#2):GOSUEB 18:0 
1820 GOTO 1980 


1820 IF f=0 THEN 1#(d)="RLC 2 RETURN 
1840 IF f=1 THEN 1#(d)="RRC “2: RETURN 
1850 IF f=2 THEN 1#(d)="RL "2 RETURN 
1860 IF f=Z THEN 1#0d)="RKR “2: RETURN 
1870 IF f=4 THEN 1#(d)="SLA 2: RETURN 
1880 IF f=5 THEN i+(d)="SRA “2: RETURN 
1890 IF f=7 THEN 1#(d)="SRL “2: RETURN 


1900 IF #f>=8 AND f<=15 THEN GOTO 1940 
1910 IF #f>=16 AND f<=23 THEN GOTO 1960 
1920 f=f AND 7:f+-CHR#&($f+48) 


1930 i1+(d)="SET “4+f+t+",": RETURN 
1940 f=f AND 7:f+#=CHR#(f+48) 
1950 i+(d)="BIT “4+f#t+", "2: RETURN 
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1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


2040 


2160 
2170 
2180 
2190 
2200 
2210 
2220 


+ 


250 


mn 
pa 


2260 
2270 
2280 
2290 
2300 
2310 


2320 





f=f AND 7:f#+=-CHR#(f+48) 
1+$(d)="RES M4+f#+", "2 RETURN 
IF ehï=10 THEN GOTO 2050 
eh+=STR# (eh) :eh#t=MID#(eh#,2,1) 
IF el>=10 THEN GOTO 2040 
el+t=STR#t(el):el#+=MID+(el1#+,2,1) 
GOSUR 2:5:90:14(d)=1#(d)+3#(g) :RETURN 
x=eh+55:eht=CHR# (x) : GOTO 2000 
x=el+55:el#+=CHR# (x) :GOTO 2020 

IF d AND 7=5 THEN GOTO 2080 

IF d AND 7-4 THEN GOTO 2080 


GOTO 880 
1-d AND 56 

g-1/8 

IF d AND 7-5 THEN i#(d)="DEC “+j#(g):GOTO 2120 
1#(d)="INC "+)#(g) 


GOSUR 22:80:RETURN 
REM Sous-programme pour exclure 
certaines zones de la memoire 
du desassembl age 
n=i 
INFUT “Adresse de depart=";a(n) 
INFUT “Adresse de fin=";b(n) 
IF a(n)<a OR bn) :b THEN GOTO 2150 
INPUT “Encore une zone de donnees (0/ ) ";v# 
VE=LEFT+(UPPERS(V#) ,1) 
IF v#="O0" THEN n=n+1:GOT0 2150 
m=n:nz=1:RETURN 
IF d=2?1 THEN v#="IX":GOTO 2240 
v+="IY" 
a=ati:z-PEErK (a) 
203 THEN GOTO 2660 
70 AND z<=190 THEN GOTO 2810 
IF OR z=34 OR z=42 THEN GOTO 2430 
1F 2 OR z=5% THEN GOTO 2550 
IF z=54 THEN GOTO 2590 
v=z:GOSUR 2740:eh#=-h#$:el#+-1#+:GOSUB 3390 


IF. 2 


IF 22 


N 
ll 
[el 
Re] 


ci 


N 


IF z=9 THEN i#$(d)="ADD "4+v#+",BC" 
IF z=25 THEN 1i4#(d)="ADD “"4+v#+",DE" 
IF z=35 THEN 1#(d)="INC M4+vS 
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2340 IF z=41 THEN i#(d)="ADD PAVEHM, MAUVE 


2250 IF z=43 THEN i#(d)="DEC HAE: 

2560 IF z=57 THEN i#(d)="ADD "+v#+",SP" 
2370 IF z=225S THEN i#(d)="POP M4+VvE 

2580 IF z=227 THEN i+(d)="EXx (SP) ,"+v# 
2390 IF z=2?29 THEN i#(d)="PUSH MAVE 

2400 IF z=255 THEN i+(d)="JP CRAVE+")" 
2410 IF z=249 THEN i#(d)="LD SP,"4+VE 


2420 RETURN 

2430 v=z:GOSUR 2740 

2440 eh#t=h#t:el#=l1# 

2450 a=at+i:zi-PEEK(a):v=z1: GOSUR 2740 
2460 fh#$=h#:#f1#-1#:a=ati 

2470 z1-PEEK(a):v=z1:GOSUB 2740 

2480 ght=h#:gl#+-1# 


2490 IF z=33 THEN 1#(d)="LD “+vé+","+gh#t+ql#t+fht+fl#t 
2500 IF z=34 THEN i#ç(d)="LD C"+gh#+qgl#+fh#+fl#t+") ,"+v 
+ 

2510 IF z=42 THEN i+(d)="LD MAVE+", (+gh#$+qgl#+t+fh$+flt 
Eau EU 


530 v=z:GOSUR 2740:eht=ht:el#t=-1# 
2540 a=a+i:z1i-PEEK(a):v=z1: GOSUR 2740 





2550 fh#=h#t:#f1#=1#:gh#t="":gl+t-"" 
2560 IF z=52 THEN 1#(d)="INC CHAEVEHM EME E+FI EN)" 
2570 IF z=53 THEN i1#ç(d)="DEC CMAVEHMEMEENE+FLE+N)" 


25930 RETURN 

2590 v=z:GOSUR 2740:eh#=h#:el#t=1# 

2600 a=a+i:z1=PEEK (a) :v=z1: GOSUR 2740 
2610 fh#=h#t:f1l#-1#+:a=at+1 

2620 z1-=PEEK(a):v=z1:GOSUR 2740 

2630 gh#=h#t:gl#+-1# 

2640 i+(d)="LD CAVE HMENEFhE+S 184") ,"+gh$+gl+ 
2650 RETURN 

2660 a=at+i:eht=CHR# (67) : el #+=-CHR# (66) 
2670 v=FEEK (a): GOSUB 2740 

2680 fh#$=h#:f1#=1# 

2690 a=a+1:z2=PEEK (a) :0=z2 AND 248:0=0/8 
2700 q+$="("+v#+"+"+fh#$+fl1#+")" 

2710 f-o:GOSUR 1830 
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2720 
2750 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2850 
2840 
KE TU 
2850 
2960 
2870 
2880 
2990 
2900 
2910 
2920 
29:50 
2940 
2950 
2960 
GOTO 
2970 
2980 
2990 
5000 
2010 
1020 


1070 
2040 
3050 
3060 
2070 
5080 


3090 


1#(d)-1#(d)+q# 

vV=zE:GOSUR 2740:gh#=ht:gl#-1t#t: RETURN 
h=INT(V/16):1=v-(h#16) 

IF h>=10 GOTO 2790 
RE=STRE(h)2hE=-MIDEChE,2,1) 

IF 1:-=10 THEN GOTO 2800 

LH=STRE (1): 1H=-MIDE(1#,2,1) : RETURN 
#1=h4553hE=CHRE C1) :GOTO 2770 

X1=1 +55: 1#=CHRE C1) : RETURN 

v=2:GOSUR 2740:eh#t=h#:elt=l#:gh#t="":ql#="" 
a=ati:z1i=PEEEr (a) 

V=z21:GOSUR 2740: fh#=h#t: f1#=1# 

IF 22-126 THEN 1#(d)="LD A, C"+VE+ "+" +fhé+fl#t+")": 


<N 


p=z AND 40 

IF p=112 THEN GOTO 2900 

IF p'-128 THEN GOTO 2920 

p=z AND 56:p-p/8:GOSURH :290 

1t(d)="LD M4gE4", CAVERNE EE hE+E1LEE") "ERETURN 
p=z AND 7:GOSUER :290 

1#(d)="LD CMAVE+ M4 +EhE+ÉL EE") , "+94: RETURN 
p-z AND 56:p=p/8:GOSUR 2290 

1H(d)=1t (d)+VH+"+"+fhE+FLE+")" 

RETURN 

a=atli:z=PEEE(a):v=z:GOSUR 2740:eht=-ht:el#t=1# 

IF 2-67 OR z=75 OR z2=8% OK z=91 OR 2=115 OK z2=123 THEN 
4200 

GOSUR 2:90:f-=z AND 248:qg=z AND 7 

IF f=160 THEN GOTO 2160 

IF f-168 THEN GOTO 3170 

IF f#-17/76 THEN GOTO :180 

IF f=-184 THEN GOTO :190 

f-z AND 56:f-f/8:g=z AND 7 


IF f-6 THEN 1#(d)="SHC HL,SF"3:RETURN 
IF g=0 THEN 1#(d)="IN "+3ECF)+", (C) "2: RETURN 
IF g=i THEN 1#(d)="OUT (CC) , "+34 (Cf) : RETURN 


IF g=2 THEN 1#(d)=p#(f)+n#(#f):RETURN 
IF g=-4 THEN 1#(d)="NEG":RETURN 

IF g=5 THEN 1#(d)="RET"+1#(#f): RETURN 
IF g=6 THEN 1#(d)="IM "+m#(#f):RETURN 
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3100 
2110 
3120 
2170 


3140 


3160 
3170 
Z180 
37190 
3200 
3210 
5220 


2270 


3240 
3250 
3260 
3270 
3280 
3290 
3700 
3710 
5320 


3330 
3540 
32350 


2760 
3270 


2:60 








IF g5:7 THEN i1#(d)="x# # #": RETURN 
IF f£=3 THEN GOTO 3150 
IF f=4 THEN i#(d)="RRD":RETURN 


IF f=S5 THEN 1#(d)="RLD":RETURN 





GOTO 3100 

i&(d)="LD "+0# (Cf) : RETURN 

i$(d)=q# (g)+"1": RETURN 

14 (d)=qt (q)+"D": RETURN 

1#(d)=q# (qg)+"1R":RETURN 

i + Cd) =q# (q)+"DR": RETURN 
a=a+1:z1-FEEK (a) :v=z1:GOSUR 2740:fh#=ht:#1#=1# 
a=a+1i:z1=PEEF (a): v=z1:GOSUB 2740:gh#=h#t:gq1#=15# 
gg#=-gh#+ql#+fht+flt 


IF 2-67 THEN i#(d)="LD C“+gg++"),BC":RETURN 

IF z=75 THEN i#(d)="LD BC, (“+qgq#t+")":RETURN 

IF z=82 THEN 1#(d)="LD C"+gg#t+"),DE":RETURN 

IF z=91 THEN i+(d)="LD DE , (“+ggt+")":RETURN 

IF z=115 THEN i#(d)="LD C'+ggt+") ,SP": RETURN 
IF z=122% THEN i+#(d)="LD SP, C“+ggt+")":RETURN 
IF p=0 THEN g#="B":1#(d)="ADD A,<" 

IF p=1i THEN g#t="C":i#(d)="ADC AC" 

IF p=? THEN g#$="D'":1i+#+(d)="SUR ( 

IF p=3 THEN g+t="E":1#(d)="SBC A," 

IF p=-4 THEN gq#="H":i#(d)="AND c" 

IF p=S5 THEN g#="l'":1#(d)="X0R (ou 

IF p=é THEN g$="##x"z it (d)="OR c" 

IF p=7 THEN gt="A":1#t(d)="CF c" 

RETURN 


eht=""sel#="":fh$="":fl#="":qgh#="":ql#="": RETURN 





fh+="":f1#="":ght="":qgl#-"":RETURN 

FRINT #drubi:RETURN 

FRINT #Hdrubi:qt=0:sy=1 

FRINT #drubi:RETURN 

KEM Fan de la bibliotheque de 
sous-programmes pour creer 
le code assembleur 

REM Verifier le nombre d'octets 
(entree en hexadecimal) a 


desassembler en lignes DATA 


ON ERKOR GOTC 2540:FOR compteur1=42001 TO 65525:READ 
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at 


:NEXT compteur 1 
3460 REM Lecture proprement dite des 


5461 donnees en lignes DATA et 
3462 ecriture de ces donnees 
34635 a partir de 42001 


3470 RESTORE:FOR m=42001 TO compteur 1-1 
3480 READ at 

3490 a=VAL("&h"+a#) 

2500 PFOKE m,a 

3510 NEXT m:POKE m,8C9 

3520 RETURN 

3530 DATA 5e,04,06,07,80,32,00,7d 

3540 RESUME 3470 
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Les TOKENS du BASIC du CPC (voir Mémoire 1 à 5): 


128 AFTER 
132 CAT 

136 CLOSEIN 
140 DATA 
144 DEFSTR 
148 DRAW 
152 END 

156 ERROR 
160 GOTO 
164 KEY 

168 LOAD 
172 MID$ 
176 NEXT 


129 AUTO 
133 CHAIN 
137 CLOSEOUT 
141 DEF 

145 DEG 

149 DRAWR 
153 ENT 

157 EVERY 
161 IF 

165 LET 

169 LOCATE 
173 MODE 
177 NEW 


180 ON ERROR GOTO 0 


183 OPENOUT 
187 PEN 

191 PRINT 
193 RAD 

197 REM 

201 RETURN 
205 SPEED 
209 TAGOFF 
213 WEND 
217 WRITE 
221 à 226 : - 
227 ERL 

231 SWAP 
235 THEN 
239 = 

243 <= 

247 / 

251 MOD 


184 ORIGIN 

188 PLOT 

192 ? 

194 RANDOMIZE 
198 RENUM 

202 RUN 

206 STOP 

210 TROFF 

214 WHILE 

218 ZONE 


228 FN 

232 ET 233 : - 
236 TO 

240 >= 

244 + 

248 * 

252 OR 


130 BORDER 
134 CLEAR 
138 CLS 

142 DEFINT 
146 DELETE 
150 EDIT 
154 ENV 

158 FOR 

162 INK 

166 LINE 

170 MEMORY 
174 MOVE 
178 ON 

181 ON SO 
185 OUT 

189 PLOTR 


195 READ 

199 RESTORE 
203 SAVE 

207 SYMBOL 
211 TRON 
215 WIDTH 
219 DI 


229 SPC 


237 USING 
241 < 

245 - 

249 \ 

253 XOR 


131 
135 
139 
143 
147 
151 
155 
159 
163 
167 
171 
175 
179 
182 
186 
190 


196 
200 
204 
208 
212 
216 
220 


230 
234 
238 
242 
246 
250 
254 


CALL 

CLG 
CONT 
DEFREAL 
DIM 
ELSE 
ERASE 
GOSUB 
INPUT 
LIST 
MERGE 
MOVER 
ON BREAK 
OPENIN 
PAPER 
POKE 


RELEASE 
RESUME 
SOUND 
TAG 
WAIT 
WINDOW 
EI 


STEP 
TAB 


<> 


AND 
NOT 


Avec le "préfixe" 255, on a les codes suivants : 





0 ABS 1 ASC 

4 CINT 5 COS 

8 FIX 9 FRE 

12 INT 13 JOY 

16 LOG10 17 LOWERS 
20 SGN 21 SIN 

24 SQR 25 STRS$ 

28 UPPER$ 29 VAL 

30 à 60 : - 

64 EOF 65 ERR 

68 PI 69 RND 

72 YPOS 134 1123 
113 BINS 114 DECS$ 
117 LEFT$ 118 MAX 
121 RIGHTS 122 ROUND 


125 TESTR 126 


POUR LES CPC 664 ET 6128 : 


TOKEN INSTRUCTION 
DD FILL 

DF MASK 

EO FRAME 

El CURSOR 


DE GRAPHICS 


2 ATN 

6 CREAL 
10 INKEY 
14 LEN 

18 PEEK 
22 SPACES 
26 TAN 


66 HIMEM 
70 TIME 


115 HEXS$ 
119 MIN 


123 STRINGS 


3 CHRS 

7 EXP 

11 INP 

15 LOG 

19 REMAIN 
23 SQ 

27 UNT 


67 INKEYS 
71 XPOS 


116 INSTR 
120 POS 

124 TEST 
127 VPOS 


CE LIVRE VOUS PASSIONNE, 
MAIS VOUS N’AVEZ PAS LE TEMPS 
DE TAPER LES PROGRAMMES 
ACHETEZ LA DISQUETTE 
DES PROGRAMMES DU LIVRE 


PROGRAMMES BASIC POUR LES CPC ! 





NOM : 





PRENOM : 





ADRESSE : 








CODE POSTAL : VILLE : 





Je désire recevoir la disquette des programmes du livre PROGRAMMES 
BASIC POUR LES CPC. 


Je joins à ce coupon un [] chèque de 120 francs. 
[1] CCP de 120 francs. 


Date : Signature : 
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LIVRE DU LECTEUR 
DE DISQUETTE 
AMSTRAD CPC (Tome 10) 


Tout sur la programmation et la 
gestion des données avec le floppy 
DDI-1 et le 664 ! Utile au débutant 
comme au programmeur en langage 
machine. Contient le listing du DOS 
commenté, un utilitaire qui ajoute 


LE NOUVEAU COMMODORE 128 


Ce livre présente le nouveau 
Commodore 128. Vous y trouverez un 
aperçu complet des possibilités du 
successeur du célèbre "64" et une 
présentation détaillée des trois 
operating system. Le super nouveau 

















geo teen 
les fichiers RELATIFS à l'AMDOS 
avec de nouvelles commandes BASIC, 
un MONITEUR disque et beaucoup 
d'autres programmes et astuces Ce 
livre est indispensable à tous ceux 
qui utilisent un floppy ou un 664 
AMSTRAD 


Réf. : ML127 
Prix : 149 FF 
















LE NOUVEL ATARI ST des thèmes abordés. Ce livre doit 


être lu par tous ceux qui suivent de 


Ce livre décrit la superbe machine près Le monde de la micro 
qu'est l'ATARI ST. informatique 

Architecture, interfaces, operating 

system, le bios, GEM, LOGO, le Réf. ML126 

processeur 68000, sont quelques-uns Prix : 129 FF 


BASIC Commodore 7.0 est décrit ainsi 
que la configuration de la mémoire, 
la page zéro et le nouveau et rapide 
lecteur de disquette 1571. Pour tous 
les Commodoristes ! 


Réf. : ML130 
Prix : 129 FF 
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MICRO APPLICATION MICRO APPLICATION 
LES LIVRES AMSTRAD 





TRUCS ET ASTUCES POUR 
L'AMSTRAD CPC (Tome 1) 


C'est le livre que tout utilisateur 
d'un CPC doit possèder. De nombreux 
domaines sont couverts (graphismes, 
fenêtres, langage machine) et des 
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super programmes sont inclus dans 
ce bestseller (gestion de fichiers, 
éditeur de texte et de sons...) 


Réf. : ML112 
Prix : 149 FF 


PROGRAMMES BASIC POUR 
LE CPC 464 


ALIMENTEZ VOTRE CPC 464 


Ce livre 
programmes, 


contient de super 
notamment un 
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désassembleur, un éditeur graphique, 
un éditeur de texte. Tous les 
programmes sont prêts à être tapés 
etabondamment commentés. 


Réf. : ML119 
Prix : 129 FF 





LE BASIC AU BOUT DES 
DOIGTS CPC 464 


Ce livre est une introduction 
complète et didactique au BASIC du 


micro-ordinateur AMSTRAD CPC 
464. Il permet d'apprendre 
rapidement et facilement la 


programmation (instructions BASIC, 
analyses des problèmes, algorythmes 
complexes...) 

Principaux themes abordes 

- Les bases de la programmation 


4 


- Bit, Octet, ASCII 

- Instrnctions du BASIC 

- Organigrammes 

- Les fenêtres 

- Programmes BASIC plus poussés 
- Le programme et menus 
Comprenant de nombreux exemples, ce 
livre vous assure un apprentissage 
simple et efficace du BASIC CPC 464 


Réf. ML118 
Prix 149 FF 
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AMSTRAD OUVRE-TOI 


Le bon départ avec le CPC 464 ! Ce 
livre vous apporte les principales 
informations sur l'utilisation, les 
possibilités de connexions du CPC 
464 et les rudiments nécessaires 
pour développer vos propres 





Lale ep  5Te\ 1e) 





LA BIBLE DU PROGRAMMEUR 
DE L'AMSTRAD CPC 464 
(Tome 6) 


Tout, absolument tout sur le CPC 
464. Ce livre est l'ouvrage de 
référence pour tous ceux qui veulent 
programmer en pro leur CPC 
Organisation de la mémoire, le 
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programmes. C'est le livre ideal 
pour tous ceux qui veulent pénétrer 
dans l'univers des micro-ordinateurs 
avec le CPC 464 


Réf. ML120 
Prix 99 FF 


JEUX D'AVENTURES. COMMENT 
LES PROGRAMMER 


Voici la clé du monde de l'aventure 
Ce livre fournit un systeme 
d'aventures complet, avec éditeur, 
interpréteur, 
et fichiers de jeux. Ainsi qu'un 


routines utilitaires 


























générateur d'aventures pour program 
mer vous-méêmes facilement vos jeux 
d'aventures. Avec, bien sûr, des 
programmes tout prêts à être tapes 


Réf  MLI21 
Prix 129 FF 

















contrôleur video, les interfaces, 
l'interpreteur et toute %W ROM 
DESASSEMBLEE et COMMENTEE 
sont quelques-uns des themes de cet 
ouvrage de 700 pages 


Réf  ML122 
Prix 249 FF 


LE LANGAGE MACHINE DE 
L'AMSTRAD CPC (Tome 7) 


Ce livre est destiné à tous ceux qui 
désirent aller plus loin que le 
BASIC. Des bases de la programmation 
en assembleur à l'utilisation des 
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routines systeme, tout est expliqué 
avec de nombreux exemples. Contient 
un programme assembleur, moniteur et 
désassembleur 


Réf ML123 
Prix 129 FF 
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GRAPHISMES ET SONS DU CPC 


L'AMSTRAD CPC dispose de 
capacités graphiques et 
exceptionnelles. Ce livre en montre 
l'utilisation à l'aide de nombreux 
programmes utilitaires 

Contenu 

- base de programmation graphique 
- éditeur de police de caractères 

- "sprites”, "shapes”, et chaines 

- représentations multi-<ouleurs 

- calcul des coordonnées 


sonores 
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MONTAGES, EXTENSIONS ET 
PERIPHERIQUES AMSTRAD CPC 
(Tome 11) 


Pour tous les amateurs d'éléctro- 
nique ce livre montre ce que l'on 
peut réaliser avec un CPC. De 
nombreux schémas et exemples 





- rotations, mouvements 


- représentations graphiques de 
fonctions en 3D 
-  DAO. (dessin assisté par 


ordinateur) 

- synthétiseur 

- mini-orgue 

- enveloppes de son, et beaucoup 
d'autres choses 


Réf. : ML124 
Prix : 129 FF 


PEEKS ET POKES DU CPC 
(Tome 9) 


Comment exploiter à fond son CPC à 
partir du BASIC ? C'est ce que vous 
révèle ce livre avec tout ce qu'il 
faut savoir sur les peeks, pokes et 
autres call. Vous, saurez aussi 





illustrent les thèmes et  applica- 
tions abordés comme les interfaces, 
programmateur d'EPROM.. Un très 
beau livre de 450 pages. 


Réf. : ML131 
Prix 199 FF 










ASS 
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comment protéger la mémoire, calcu- 
ler en binaire. et tout cela très 
facilement. Un passage, assuré et 
sans douleur du BASIC au puissant 
LANGAGE MACHINE 


Réf. : ML126 
Prix : 99 FF 
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LE LIVRE DU CP/M AMSTRAD 
(Tome 12) 


Ce livre vous permettra d'utiliser 
CP/M sur les CPC 464, 664 et 6128 
sans aucune difficulté. Vous y 
trouverez de nombreuses explications 


MICRO APPLICATION 


AMSTRAD AUTOFORMATION 
A L'ASSEMBLEUR 
EN FRANCAIS 


Contient un livre et un logiciel. 

LE LIVRE : 

Cet ouvrage introduit le débutant à 
la programmation du Z80 grâce à la 
méth de du DR WATSON qui selon les 
critiques vaut son pesant d'or ! 
Aucune connaissance préalable n'est 
requise et le but du livre est 
d'assurer au novice un succès total. 
A la fin du livre les instructions 
du Z80 sont expliquées en détail. De 
nombreux exemples illustrent les 
différentes étapes du cours alors 
que des exercices (les solutions 
sont fournies) testent la compré- 
hension 

LE LOGICIEL : Un assembleur Z80 


et les différents exemples vous 
assureront une maitrise parfaite de 
ce très puissant système d'exploi- 
tation qu'est CP/M. (300 pages) 


Réf. : ML128 
Prix 149 FF 


DES IDEES POUR LES CPC 
(Tome 13) 


Vous n'avez pas d'idées pour 
utiliser votre CPC (464, 664, 6128) 
? Ce livre va vous en donner ! Vous 
trouverez de très nombreux 
programmes BASIC couvrant des sujets 
très variés qui transformeront votre 


complet est livré sur cassette et 
comprend : 

- Etiquettes Symboliques 

- Directives d'Assemblage 

- Chargement/Sauvegarde 

- Copie Ecran 

- INSERT / DELET 

L'assembleur permet d'écrire des 
programmes facilement en langage 
d'assemblage puis les transforme en 
code machine (langage machine). Pour 
vous aider à comprendre les 
rotations mathématiques utilisées, 
une démonstration de l'utilisation 
des nombres binaires et hexadécimaux 
est fournie. Un programme utilisant 
les commandes graphiques 
additionnelles décrites dans le 
livre est également fourni 


Réf  ML126 
Prix: 196 FF K7-3296 FF- disquette 













ASS 


Ale: er 44007110 || 









CPC en un bon petit génie. De plus 
les programmes vous permettront 
d'appronfondir vos connaissances en 
programmation 

(250 pages) 


Réf. ML132 
Prix 129 FF 





MICRO APPLICATION MICRO APPLICATION 


MICRO APPLICATION MICRO APPLICATION 


:XTOMAT AMSTRAD 
CPC 464 & 664 





Traitement de texte de 
professionnelle pour tous. 

Tabulation, recherche, remplacement, 
insertion, manipulation de para 
graphes, calcul. Accents à l'écran 


qualité 


et imprimante, Module permettant de 









D.A.M.S. POUR AMSTRAD 
CPC 464 & 664 


D.A.MS. est un logiciel intégrant 
un assembleur, un moniteur et un 
désassembleur symbolique pour 
développer et mettre au point 
facilement des programmes en langage 
machine sur les micro ordinateurs 
AMSTRAD. Les trois modules sont co- 
résidents en mémoire ce qui assure 
une grande souplesse d'utilisation 
Vous pouvez notamment utiliser un 
éditeur plein écran, un assembleur 


gérer tout type d'imprimante. Ecrit 
en LANGAGE MACHINE. Liaison 
avec DATAMAT pour mailingetlettres 
types personnalisées... TEXTOMAT est 
la solution traitement de texte sur 
CPC. Documentation complète. 


Réf. AM305 
Prix 460 FF 


DATAMAT AMSTRAD 
CPC 464 & 664 


La gestion de fichier la plus 
complète fonctionnant pour les 464 
et 664. Entièrement en LANGAGE 


immédiat, un désassembleur 
symbolique, une trace et beaucoup 
d'autres fonctions très puissantes 
D.AMS. est entièrement relogeable 
et est bien evidemment écrit en 
langage machine. 


Réf. : AM208 
Prix sur cassette 295 FF TTC 
pour CPC 464 
Réf AM308 
Prix sur disquette 


pour CPC 664 & CPC 464 





395 FF TTC 





MACHINE. Fonctions de calcul, de 





tri, de recherche multicritères, 
impressions paramètrables, liaison 
avec TEXTOMAT pour mailing 





Documentation française de 60 pages 


Réf. : AM304 
Prix : 450 FF 
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MICRO APPLICATION MICRO APPLICATION 





MICRO APPLICATION vous présente MICRO INFO, 
nouveau journal avec des dossiers, des bidouilles, des 
trucs et astuces, des nouveautés, des programmes et 
plein de rubriques sympas! (88 pages) 

Chaque numéro traite principalement de 3 matériels: 


AMSTRAD - COMMODORE - ATARI 
carte d'abonnement 


Je désire m'abonner à MICRO INFO 


OC Le numéro 1 : 15 F + 5 F pour frais d'envoi 

O Le numére 2 : 20 F + 5 F pour frais d'envoi 

O Les numéros 1 et 2 : 35 F + 5 F pour frais d'envoi 

OJe choisis de m'abonner pour 4 numéros au prix de 7OF 


Je règle par (Q chèque 


O mandat 

D CCP 
Nom : Prénom : 
Adresse : RE  — 
Code postal : date et signature : 


Veuillez nous retourner cette carte sous pli ainsi que 
votre règlement à l'adresse suivante : 


MICRO APPLICATION 
13 rue Sainte Cécile 75009 PARIS 


Achevé d'imprimer en février 1986 
sur les presses de l'imprimerie Laballery et C* 
58500 Clamecy 
Dépôt légal : février 1986 
Numéro d’imprimeur : 602027 


IMPRIMÉ EN FRANCE 


Ce livre a pour but d'alimenter votre CPC en super-programmes écrits en basic. Différents types de 
programmes (jeux, utilitaires, applications...) vous permettront de vous familiariser avec l'utilisation 
de l'informatique mais aussi avec la programmation. Enfin vous pourrez même faire vos premiers 
pas en langage machine. 


Principaux sujets abordés : 





— À la découverte de la mémoire 


— Facilitez-vous le travail avec des EDITEURS 
e Editeur graphique 
e Editeur sonore 
e Editeur de texte 


— Programmez plus facilement en BASIC 
e Jeux de caractères (français, mathématiques, informatiques) 
e Messages d'erreurs complets 
e Références des variables 


— Des programmes utiles 
e Calendrier 
e Gestion d'une collection (disques par exemple) 
e Suivi d'un championnat sportif (foot, basket...) 


— Des jeux 
e Jeu de dés 
e Décodeur 
e Réflexes 


Premiers pas en langage machine 
e Conversion numérique 
e Désassembleur 


— Les tokens du BASIC 


Nouvelle édition : 
Les programmes de ce livre ont été entièrement revus et adaptés pour fonctionner sur les 
ordinateurs AMSTRAD CPC 464, 664 et 6128. 


ISBN : 2-86899-007-X 
PRIX : 129 FF Réf. : ML 119 
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